Задать вопрос
20 февраля, 19:41

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

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

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

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

+1
Ответы (1)
  1. 20 февраля, 22:15
    0
    Задание 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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Задание 1. составьте программу вычисления количества двузначных чисел, которые кратны 2 и 3. задание 2. составьте программу, выводящую на ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы