Цикл с параметром

42.	Сколько раз будут выполнены операторы из тела циклов в следующих фрагментах программ: а) FOR k := -1 TO 1 DO … б) FOR k := 10 TO 20 DO… в) FOR k := 20 TO 10 DO … г) k := 5; m := 15; FOR i := k+1 TO m-1 DO… д) k := 5; m := 15; FOR i := 0 TO k*m DO… е) k := m; FOR i := k TO m DO …
43.	Определить значение переменной S после выполнения следующих операторов: S := 0; n := 5; For i := 2 To n Do S := S = 100 Div i;
44.	Натуральные числа называются числами Пифагора, если выполняется условие а^2+b^2=c^2. Напечатать все числа Пифагора, меньшие N.
45.	Определить количество натуральных трехзначных чисел, сумма цифр которых равна заданному числу N.
46.	Составить программу вычисления кубов чисел от 25 до 125.
47.	Среди двузначных чисел найти те, сумма квадратов цифр которых делится на 13.
48.	Квадрат трехзначного числа оканчивается тремя цифрами, которые как раз и составляют это число. Написать программу поиска таких чисел.
49.	Найти сумму положительных нечетных чисел, меньших 100.
50.	Сумма цифр трехзначного числа кратна 7, само число также делится на 7. Найти все такие числа.
51.	Дано натуральное число n. Получить все его натуральные делители.
52.	Дано натуральное число N. Вычислить:
53.	Дано натуральное число N. Вычислить:
54.	Вычислить сумму ряда:
55.	Для натурального N. Вычислить:
56.	Составить программу перевода натурального числа из десятичной системы счисления в двоичную.
57.	Для натурального числа N найти: , где х - любое число.
58.	Написать программу на языке Pascal, вычисляющую значение следующего выражения (использовать цикл с параметром): 1/13 – 5/21 + 9/29 – 13/37 + … +73/157 – 77/165.
59.	Вычисляемое в программе значение переменной K равно … VAR K,M: INTEGER; BEGIN K:=0; FOR M:=1 TO 10 DO IF M MOD 3<>M MOD 5 THEN K:=K+1; WRITE(K) END.

Цикл с предусловием

60.	Дана последовательность операторов: a := 1; и b := 1; while a+b<8 do begin a := a+1; b := b+2 end; s := a+b; Сколько раз будет повторен цикл и, какими будут значения переменных a, b и s после завершения этой последовательности операторов?
61.	Какими будут значения переменных а и b после выполнения операторов: a := 1; и b := 1; while a<=3 do a := a+1; b := b+1;
62.	Дана последовательность операторов, вычисляющих факториал f числа n, которая содержит ошибки. k := 1; и f := 0; while k<n do f := f*k; k := k + 1; Найдите эти ошибки.
63.	Найдите и исправьте ошибки в следующем фрагменте программы, определяющей для заданного натурального числа n число, записанное цифрами числа n в обратном порядке. p := n; while p>=0 do begin a := a+p MOD 10; p :=p Div 10; end.
64.	Даны a, b ( a > 1 ). Получить степени а: a, a^2, a^3, … , меньшие b.
65.	Найти S = 1 + 3 + 5 + 7 + 9 + 11 + 13 + 15
66.	Найти сумму и количество цифр любого натурального числа.
67.	Написать программу, которая определит 1-ое отрицательное число последовательности , где I = 1, 2, 3, …
68.	Определить значение суммы S = 1/2 + 1/4 + … +1/72.
69.	Найти первую цифру числа.
70.	Поменять местами первую и последнюю цифры числа.
71.	Найти количество четных цифр целого положительного числа.
72.	Найти самую большую цифру целого числа.
73.	Найти сумму цифр целого числа, больших 5.
74.	Составить программу, проверяющую, является ли последовательность из 10 целых чисел, вводимых с клавиатуры, возрастающей.
75.	Население города ежегодно увеличивается на 1/40 населения состава жителей. Через сколько лет население города утроится?
76.	Не используя стандартные функции вычислить с точностью Е=10^-4. .
77.	Сумма S рублей положена в сбербанк, при этом ежегодный прирост составляет Р% и считается непрерывным. Определить, через сколько лет первоначальная сумма увеличится в N раз