Предмет: Информатика, автор: alkostiunin201

Вынести 1000,950,900,850,...100 помогите пожалуйста!!!!!

Ответы

Автор ответа: nikolac
0
uses crt;
var i:integer;
begin
i:=1000;
while i>=100 do
begin
write(i,' ');
i:=i-50;
end;
end.
Похожие вопросы