Помогите пожалуйста Программа в Паскале написать Уменьшение положительного числа на 1 до тех пор,пока оно не станет отрицательным. Как только число становится отрицательным,команда повторения заканчивает свою работу
Помогите пожалуйста
Программа в Паскале написать
Уменьшение положительного числа на 1 до тех пор,пока оно не станет отрицательным. Как только число становится отрицательным,команда повторения заканчивает свою работу
Гость
Ответ(ы) на вопрос:
Гостьvar n:Integer;
Begin
Read(n);
while (n>=0) do
begin
n:=n-1;
end;
Writeln('Finished');
end.
Гость var
a : integer;
begin
readln (a);
//Цикл с условием
//Он выполнятся пока верно его условие (a>=0)
While a >= 0 do
a := a - 1;
writeln (a);
end.
Не нашли ответ?
Похожие вопросы