Написать программу отсчёта от 10 до 1, завершиться должна словом пуск. Паскаль, цикл while
Написать программу отсчёта от 10 до 1, завершиться должна словом пуск. Паскаль, цикл while
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.2, сборка 1403 от 16.03.2017
begin
var i:=10;
while i>=1 do begin
Writeln(i);
Sleep(1000); // пауза 1с
i:=i-1
end;
Writeln('Пуск!')
end.
Результат
10
9
8
7
6
5
4
3
2
1
Пуск!
Не нашли ответ?
Похожие вопросы