Составить программу нахождения первых чётных чисел от 1 до 20.Помогите, пожалуйста!
Составить программу нахождения первых чётных чисел от 1 до 20.
Помогите, пожалуйста!
Гость
Ответ(ы) на вопрос:
Гостьvar
i:integer;
begin
for i:=1 to 20 do
if i mod 2 = 0 then
write(i,' ');
end.
Не нашли ответ?
Похожие вопросы