Предмет: Информатика,
автор: mebero
вычислить сумму квадратов чисел от одного до n
Ответы
Автор ответа:
1
Var i, n: integer; sum: longint;
begin
sum:=0;
readln(n);
for i:=1 to n do inc(sum, i*i);
writeln(sum);
end.
begin
sum:=0;
readln(n);
for i:=1 to n do inc(sum, i*i);
writeln(sum);
end.
ПодарюМозги:
Это тоже самое. Процедура inc, принимающая один аргумент, увеличивает его на единицу (инкрементирует). А если передать два аргумента, то увеличивает первый аргумент на то количество, которое указано во втором аргументе. Ваша запись тоже верна.
Похожие вопросы
Предмет: Русский язык,
автор: petrovalera85
Предмет: Английский язык,
автор: T06031986
Предмет: Другие предметы,
автор: aleks1yus
Предмет: Русский язык,
автор: svetlanaramazanova79
Предмет: Литература,
автор: shimi5