Написать алгоритм программы в тетради на языке pascal, которая считывает число и вычитает из него единицу до нуля с цикла, при этом выводит число каждую итерацию.​

Vikusya18101 Vikusya18101    3   14.05.2019 17:02    0

Ответы
pstepanova496 pstepanova496  10.06.2020 04:55

program raf105;

var a: integer;

begin

readln(a);

while a<>0 do

begin

 a:= a-1;

 writeln(a);

end;

end.

Язык PascalABC
ПОКАЗАТЬ ОТВЕТЫ
TashaDu TashaDu  10.06.2020 04:55

Объяснение:

var  

a:integer;

begin

writeln('Введите натуральное число');

readln(a);

repeat

write(a,' ');

a:=a-1;

until a<0;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика