СРОЧНО! Напишите задачу на паскаль.1. Вывести все четные числа от 0 до n (n вводится с клавиатуры)
СРОЧНО! Напишите задачу на паскаль.
1. Вывести
все четные числа от 0 до n (n вводится с клавиатуры)
Гость
Ответ(ы) на вопрос:
Гостьvar i,N:integer;
begin
readln(N);
for i:=1 to N do begin
if (i mod 2= 0)
then
write(i,' ');
end;
end.
Не нашли ответ?
Похожие вопросы