Var k, s: integer; begin
s:=1;
k:=0;
while k < 13 do begin
s:=s+2*k;
k:=k+4;
end;
write(s+k);
end.
нужно составить уравнение/неравенство для решения для лучшего понимая как можно подробнее
s:=1;
k:=0;
while k < 13 do begin
s:=s+2*k;
k:=k+4;
end;
write(s+k);
end.
нужно составить уравнение/неравенство для решения для лучшего понимая как можно подробнее
More Questions From This User See All