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





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

I)var a,b:real;    c:integer;beginc:=0;a:=243;while a>=32 do begina:=a/3*2;c:=c+1;end;writeln(c);end.II)var s,b:integer;beginfor b:=1 to  51 dobegins:=s+b;end;writeln(s);end.