Помогите пожалуйста
Программа в Паскале написать
Уменьшение положительного числа на 1 до тех пор,пока оно не станет отрицательным. Как только число становится отрицательным,команда повторения заканчивает свою работу
Программа в Паскале написать
Уменьшение положительного числа на 1 до тех пор,пока оно не станет отрицательным. Как только число становится отрицательным,команда повторения заканчивает свою работу
More Questions From This User See All
Answers & Comments
Verified answer
Var n:Integer;Begin
Read(n);
while (n>=0) do
begin
n:=n-1;
end;
Writeln('Finished');
end.
Verified answer
vara : integer;
begin
readln (a);
//Цикл с условием
//Он выполнятся пока верно его условие (a>=0)
While a >= 0 do
a := a - 1;
writeln (a);
end.