Напишите программу которая вычисляет сумму 1) Первыз n натуральных чисел 2) квадр
Напишите программу которая вычисляет сумму
1) Первыз n натуральных чисел
2) квадратов первых n натуральных чисел
3) Всех четных чисел в диапазоне от 1до n
4) всех двузначных чисел
Гость
Ответ(ы) на вопрос:
Гость // PascalABC.NET
var i,n,s1,s2,s3,s4:integer;
begin
readln(n);
for i:=1 to n do begin
s1:=s1+i;
s2:=s2+i*i;
if i mod 2=0 then s3:=s3+i;
if (i>9) and (i<100) then s4:=s4+i;
end;
writeln(s1,,s2,,s3,,s4)
end.
Не нашли ответ?
Похожие вопросы