Question

СРОЧНО!!!
Решите задачи в программе Паскаль





Ответить можете скрином

Answer 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.