Ответы 1
var s,n,i:integer;
begin
write ('Введите переменную n: ');
readln (n);
for i:=1 to n do
begin
s:=s+i*i;
end;
writeln (s);
end.
begin
write ('Введите переменную n: ');
readln (n);
for i:=1 to n do
begin
s:=s+i*i;
end;
writeln (s);
end.
Премиум статус
Получайте самые быстрые
ответы на свои вопросы
ответы на свои вопросы
У вас остались
вопросы?
вопросы?