1. Вывести на экран все целые числа от 100 до 200, кратные трем.
I:integer;
begin
For i:=100 to 200 do
If i mod 3=0 then
Write(i, );
end;
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
