Cererdana
4 год назад
pascalПожалуйста посчитайте с двумя Заданиеми срочно!!1. составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N2.напишите программу, определяющую сумму всех нечетных чисел от 1 до 99
ОТВЕТЫ
Bradford Alvin
Oct 24, 2020
1.
var n,i:integer;
begin
readln(n);
for i:=1 to n do writeln(i*i);
end.
2.
var n,i:integer
begin
for i:=1 to 99 do
if i mod 2 = 1 then n+=i;
writeln(n)
end.
var n,i:integer;
begin
readln(n);
for i:=1 to n do writeln(i*i);
end.
2.
var n,i:integer
begin
for i:=1 to 99 do
if i mod 2 = 1 then n+=i;
writeln(n)
end.
969
