Напишите программу на языке паскаль вывода всех чётных - вопрос №12492114 от troll28 20.06.2022 05:50

Question

Информатика: Напишите программу на языке паскаль вывода всех чётных чисел не кратных 4 в диапазоне от 50-70 и найдите их количество.

troll28 · Answer

program raf105;

var a,i:integer;

begin

for i:=50 to 70 do

begin

if ((i mod 2)=0) and ((i mod 4)<>0)

then a:= a+1;

end;

writeln('Вывод: ',a);

end.

Язык программирования PascalABC