Попробуй делать через write и if
У них много минусов
Подумай))
Program n1;
var sum,a: real;
i: integer;
begin
i:=0;
sum:=0;
while i<10 do
begin
readln(a);
sum:=sum+a;
i:=i+1;
end;
write(sum);
end.
begin
write( 'Целых недель = ',234 div 7);
end.
Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)
Вот прога на паскале:
program sym
var p:array[1..12] of integer;
s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
p[i]:=i*i; //если нет уже готового массива
For i:=1 to 12 do
s:=s+p[i];
write(s)
end.
Ну тут кстати массив излишен, если надо просто найти сумму:
program sym1
var s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
s:=s+i*i;
write(s)
end.
Я у себя не проверял, но должно работать)