Найдите сумму всех натуральных чисел меньше 7 pascal

Lbailieva Lbailieva    2   20.05.2019 21:31    1

Ответы
DiGribosha DiGribosha  14.06.2020 14:20

Program zadacha1;

var  

s,n : integer;

begin

 writeln('Введите N');

 read(n);

 s:=0;

 while  (n<>0) do

 begin

   inc(s,n);

   dec(n);

 end;

 writeln('Сумма = ',s);

end.

Объяснение:

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