Напишите программу на языке паскаль, которая вычесляет сумму:
а) первых n натуральных чисел;
б) квадратов первых n натуральных чисел;
в) всех чётных чисел в диапазоне от 1 до n;
г) всех двузначных чисел.

1

Ответы и объяснения

  • Участник Знаний
2014-02-24T18:28:33+04:00
Пункт а), остальные аналогично, просто поменяй условия

var n,i,k:integer;
begin
read (n);
if (n>=1) then
begin
k:=0;
for i:=1 to n do
begin
k:=k+i;
end;
writeln (k);
end
else writeln ('Неверные условия');
end.