Предмет: Информатика,
автор: lasikokov1999
Помагите пожалуйста надо в Паскале сделать
Приложения:
lasikokov1999:
паскаль цикл For
## Println('S = ', SeqGen(ReadInteger('Введите n:'), x → (2*x-1)**2, 1).sum)
Ответы
Автор ответа:
0
Ответ:
var n,s,x:integer;
begin
readln(n);
x:=1;
While n>=x do
begin
s:=s+x*x;
x:=x+2;
end;
writeln(s);
end.
Объяснение:
цикл For
нужно
var n,s,x,i:integer;
begin
readln(n);
for x:=1 to n do
begin
if x mod 2=1 then
s:=s+x*x;
end;
writeln(s);
end.
begin
readln(n);
for x:=1 to n do
begin
if x mod 2=1 then
s:=s+x*x;
end;
writeln(s);
end.
Похожие вопросы
Предмет: Литература,
автор: yarik20156
Предмет: Геометрия,
автор: alyonakrushnic
Предмет: Русский язык,
автор: Оксана1799
Предмет: Математика,
автор: pashok3828555
Предмет: История,
автор: angel8790