Пользователь вводит целое от 0 до 200 число. Если оно больше 100, то выведите на экран все числа от этого число до 1, иначе же все числа от этого числа. Создайте программу, отладьте ее на компьютере (Pascal)
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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
