Question

Помогите пожалуйста. Очень важно и срочно!!! Задание 8 и 9. Буду благодарна .

Answer 1

#8
var k,s: integer;

begin
s:=0;
k:=0;
while k<12 do begin
s:=s+2*k;
k:=k+3;
end;
write(s);
end.

Ответ 36
==========================
#9
var k,s: integer;

begin
s:=0;
k:=0;
while s<80 do begin
s:=s+2*k;
k:=k+4;
end;
write(s);
end.

Ответ 80