Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n. проверьте алгоритм трассировкой. напишите программу на паскале.

D202 D202    2   29.05.2019 10:50    4

Ответы
agentWINX agentWINX  28.06.2020 12:11
Var a,k,n:integer;
begin
read(n); a:=0;
for k:=1 to n do a:=a+k;
write(a);
end.
ПОКАЗАТЬ ОТВЕТЫ
LAKI2280041 LAKI2280041  28.06.2020 12:11
Program asd;
USES crt;
Var i,j,n:integer;
BEGIN
Clrscr;
Writeln('Vvedite chislo: ');
Read(n);
j:=0;
For i:=1 to N do
j:=j+i;
Writeln(j);
END.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика