Напишите программу на языке паскаль вывода всех - вопрос №41249436 от artem213131 05.05.2021 12:08

Question

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

artem213131 · 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