Предмет: Информатика,
автор: nastenkaandreeva
Составьте алгоритм вычисления суммы всех
натуральных чисел, не превышающих заданного натурального числа 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
Интересные вопросы
Предмет: Физика,
автор: dima34595346
Предмет: Химия,
автор: muriginaver
Предмет: Литература,
автор: kirillmamedov1986
Предмет: География,
автор: BAYRAK
Предмет: Литература,
автор: lasta1979