Выведите на экран в строку все числа первой сотни, но только четные
Var a,b,c:integer;
begin
for a:=1 to 100 do begin
if a mod 2 = 0 then write( ,a, );
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
