Предмет: Информатика,
автор: alkostiunin201
Вынести 1000,950,900,850,...100 помогите пожалуйста!!!!!
Ответы
Автор ответа:
0
uses crt;
var i:integer;
begin
i:=1000;
while i>=100 do
begin
write(i,' ');
i:=i-50;
end;
end.
var i:integer;
begin
i:=1000;
while i>=100 do
begin
write(i,' ');
i:=i-50;
end;
end.
Похожие вопросы
Предмет: Геометрия,
автор: qerwden00
Предмет: Психология,
автор: shahruza010808
Предмет: Русский язык,
автор: vladdennikolaev
Предмет: Информатика,
автор: DashaPok
Предмет: География,
автор: ministrelia28