Урок 10 Задача 2
Primary tabs
Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).
var a, b, c, d: integer; begin writeln('Введите четыре числа:'); readln(a, b, c, d); // считываем writeln(); if (a mod 4 = 0) then // проверка первого числа write(a, ' '); // выводим, если делится без остатка на 4 if (b mod 4 = 0) then // проверка второго числа write (b, ' ' ); // выводим, если делится без остатка на 4 if (c mod 4 = 0) then // проверка третьего числа write (c, ' ' ); // выводим, если делится без остатка на 4 if (d mod 4 = 0) and ((a mod 4 <> 0) or (b mod 4 <> 0) or (c mod 4 <> 0)) then //четвертое число выводим на экран только если оно делится без остатка на 4 и хотя бы одно из предыдущих чисел не делится на 4 без остатка write (d, ' ' ); readln (); end.
Вывод в консоли:
Введите четыре числа:
44
2
12
5
44 12
- Log in to post comments
- 411 reads