Найти количество чётных чисел от 1 до 100,программа - вопрос №14803211100 от Витуся091 26.07.2022 16:21

Question

Информатика: Найти количество чётных чисел от 1 до 100,программа pascal abc

Витуся091 · Answer

var i,n:integer; begin    n:=0;    for i:=1 to 100 do       if (i mod 2 = 0) then inc(n);    writeln(n) end....