Составьте на языке Паскаль программу вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа N. Построить трассировочную таблицу.
Program Summa;
Uses Crt;
var n,s,i:longint;
begin
clrscr;
write(Введите n: );
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(Сумма всех чисел от 1 до ,n,=,s);
readkey;
end.
Таблица для n=5
s n i
0 5 -
1 5 1
3 5 2
6 5 3
10 5 4
15 5 5
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
