Урок 10 Задача 2
Primary tabs
Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).
var a, b, c, d, sum: integer; begin writeln('vvedite chisla A B C D: '); readln(a, b, c, d); writeln(); sum := 0; if (a mod 4) = 0 then begin sum :=sum + 1; writeln(a); end; if (b mod 4) = 0 then begin sum :=sum + 1; writeln(b); end; if (c mod 4) = 0 then begin sum :=sum + 1; writeln(c); end; if (a mod 4) = 0 then begin sum :=sum + 1; if (sum <= 3) then writeln(d); end; readln(); end.
- Log in to post comments
- 310 reads