Задание 1. составьте программу вычисления количества двузначных чисел, которые кратны 2 и 3.

задание 2. составьте программу, выводящую на экран все двузначные числа, у которых первая цифра в два раза больше второй.

задание 3. составьте программу вычисления количества трехзначных чисел-палиндромов (чисел, которые читаются одинаково слева направо и справа налево).

задание 4. найдите количество двузначных чисел, которые делятся на сумму своих чисел.

Question

Информатика

Евстафий

8 февраля, 16:27

Задание 1. составьте программу вычисления количества двузначных чисел, которые кратны 2 и 3.

задание 2. составьте программу, выводящую на экран все двузначные числа, у которых первая цифра в два раза больше второй.

задание 3. составьте программу вычисления количества трехзначных чисел-палиндромов (чисел, которые читаются одинаково слева направо и справа налево).

задание 4. найдите количество двузначных чисел, которые делятся на сумму своих чисел.

+2

Ответы (1)

Знаете ответ?

Макрина · Answer 1

Задание 1

Var i:Integer;

Begin

For i: = 1 to 99 do

If i mod 2 = 0 Then Write (i,' ') ;

WriteLn (#13,#10,'Числа кратны 2') ;

If i mod 3 = 0 Then Write (i,' ') ;

WriteLn (#13,#10,'Числа кратны 3') ;

end.