Регистрация
Ришат12
21.08.2020 09:04
Информатика
Есть ответ 👍

Написать программу,которая вычисляет сумму первых n-натуральных чисел. должны быть операции while и do

114
293
Посмотреть ответы 2

Ответы на вопрос:

zkulikiv
zkulikiv
4,8(78 оценок)
Var   i,n,s: integer; begin   write('n='); read(n);   s: =0; i: =1;   while i< =n do begin       s: =s+i;       i: =i+1       end;   writeln('сумма равна ',s) end. пример n=10 сумма равна 55
dashasm06
dashasm06
4,4(70 оценок)
Var a,b: integer; begin readln (a,b); if a> b then for a: =a-1 downto b+1 do writeln (a) else for a: =a+1   to b-1 do writeln (a); end.

Популярно: Информатика