| 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 … function changeProof(proofobj) { if (proofobj.style.display=='none') {proofobj.style.display='inline'} else {proofobj.style.display='none'} }
|
| 43.
| Определить значение переменной S после выполнения следующих операторов:
S := 0; n := 5;
For i := 2 To n Do S := S = 100 Div i;
|
| 44.
| Натуральные числа называются числами Пифагора, если выполняется условие а2+b2=c2. Напечатать все числа Пифагора, меньшие 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.
|