вывести целые четные числа от 1 до 10
Пожалуйста помогите!Буду благодарен!
Ответы на вопрос
Ответил APALoff
0
Var i : Byte;
Begin
For i:=1 to 5 do Write(i*2,' ');
end.
Begin
For i:=1 to 5 do Write(i*2,' ');
end.
Новые вопросы