Задача 2 Урок 10.0
Primary tabs
Пользователь вводит 4 целых числа, выведите на экран не более трех из этих чисел, которые делятся нацело на 4 (т.е. нужно вывести те числа, которые делятся на 4, но не более трех штук).
var a, b, c, d, count: integer; begin readln(a, b, c, d) ; //тк циклы еще не прошли, то ифом count:=1; if (a mod 4 = 0) then begin writeln('Delitsa na 4 ', a); count:=count+1; end; if (b mod 4 = 0) then begin writeln('Delitsa na 4 ', b) ; count:=count+1; end; if (c mod 4 = 0) then begin writeln('Delitsa na 4 ', c) ; count := count + 1; end; if ((d mod 4 = 0) and (count < 4)) then writeln('Delitsa na 4 ', d) ; readln(); end.
- Log in to post comments
- 176 reads