Составьте алгоритм вычисления суммы всех
натуральных чисел, не превышающих заданного натурального числа N.
Проверьте алгоритм трассировкой. Напишите программу на Паскале.
Ответы
Ответ дал:
0
var a,k,n:integer;
begin
read(n); a:=0;
for k:=1 to n do a:=a+k;
write(a);
end.
begin
read(n); a:=0;
for k:=1 to n do a:=a+k;
write(a);
end.
Ответ дал:
0
спасибо:3
Ответ дал:
0
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.
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.
Ответ дал:
0
спасибо:3
Похожие вопросы
2 года назад
2 года назад
7 лет назад
10 лет назад