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

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт