Построить программу в Pascal. "Даны четыре целых числа. Определить сколько из них четных." Надо завтра сдать, помогите пожалуйста!
Построить программу в Pascal. "Даны четыре целых числа. Определить сколько из них четных." Надо завтра сдать, помогите пожалуйста!
Гость
Ответ(ы) на вопрос:
Гостьvar i,r,a:integer; begin cls;
r:=0;
For i:=1 to 4 do
begin
read(a);
if a mod 2 = 0 then inc(r);
end; writeln('chetnyh = ',r);
readln;
end.
Не нашли ответ?
Похожие вопросы