Ответы
Ответ дал:
1
I)
var a,b:real;
c:integer;
begin
c:=0;
a:=243;
while a>=32 do begin
a:=a/3*2;
c:=c+1;
end;
writeln(c);
end.
II)
var s,b:integer;
begin
for b:=1 to 51 do
begin
s:=s+b;
end;
writeln(s);
end.
var a,b:real;
c:integer;
begin
c:=0;
a:=243;
while a>=32 do begin
a:=a/3*2;
c:=c+1;
end;
writeln(c);
end.
II)
var s,b:integer;
begin
for b:=1 to 51 do
begin
s:=s+b;
end;
writeln(s);
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
7 лет назад