Напишите программу, которая вычисляет сумму: а) первых n натуральных чисел б) квадратов первых n натуральных чисел в) всех четных чисел в диапазоне от 1 до n г) всех двухзначных чисел Даю 20 баллов!!!
Напишите программу, которая вычисляет сумму:
а) первых n натуральных чисел
б) квадратов первых n натуральных чисел
в) всех четных чисел в диапазоне от 1 до n
г) всех двухзначных чисел
Даю 20 баллов!!!
Гость
Ответ(ы) на вопрос:
Гость1)Var n,i,s:integer;
Begin
read(n);
s:=0;
for i:=1 to n do
s:=s+i;
write(s)
end.
Не нашли ответ?
Похожие вопросы