Решение задачи №2 из главы 10.0
Primary tabs
Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).
Решение:
var a, b, c, d : integer; begin writeln('Enter four numbers:'); readln(a, b, c, d); if (a mod 4 = 0) then write('a = ', a, ' '); if (b mod 4 = 0) then write('b = ', b, ' '); if (c mod 4 = 0) then write('c = ', c, ' '); if (d mod 4 = 0) AND ((a mod 4 <> 0) OR (b mod 4 <> 0) OR (c mod 4 <> 0)) then write('d = ', d); readln(); end.
- MrNobody's blog
- Log in to post comments
- 1135 reads