В паскале выдает "Ошибка:ожидался идентификатор" Надо вывести на экран четные числа из промежутка 1:30 000 ( возможно, решение неправильное)Program do 30000; uses crt; Var x integer; begin x:=1; while x меньше 30000 do begin wr...
В паскале выдает "Ошибка:ожидался идентификатор"
Надо вывести на экран четные числа из промежутка 1:30 000 ( возможно, решение неправильное)
Program do 30000;
uses crt;
Var x integer;
begin
x:=1;
while x<30000 do begin
write(x);
x:=x+1
end;
end.
Гость
Ответ(ы) на вопрос:
ГостьProgram Prog;
uses crt;
Var x:integer;
begin
x:=2;
while x<30000 do
begin
write(x,' ');
x:=x+2;
end;
end.
PS. Четных чисел в интервале 1:30000 очень-очень много :)
Не нашли ответ?
Похожие вопросы