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