пользователь вводит целое от 0 до 200 число. Если оно больше 100, то выведите на экран все числа от этого число до 1, иначе же все числа от этого числа. Создайте программу, отладьте ее на компьютере (Pascal)
More Questions From This User See All
Answers & Comments
var a: integer;
begin
readln(a);
while(a < 0) or (a > 200) do begin
readln(a)
end;
if(a > 100) then
begin
while (a > 0) do begin
writeln(a);
a := a -1
end;
end
else begin
while (a <= 200) do begin
writeln(a);
a := a + 1
end;
end;
end.