Фаддей
6 год назад
Пожалуйста посчитайте пожалуйста. Очень важно и срочно!!! Задание 8 и 9. Буду благодарна .
ОТВЕТЫ
Дмитрий
Oct 24, 2020
#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
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
790
Смежные вопросы:
