№6
var
a,b,c:real;
begin
Read(a,b);
if a>=b then begin
c:=a+b;
while c<=36 do c:=c+8;
c:=c+29
end
else begin
c:=2*b+a;
c:=4*c;
c:=c+30;
c:=c/2
end;
Writeln(c)
end.
№7
var
a,b,c:real;
begin
Read(a,b);
if a>b then begin
while a+1>2*b do b:=b+1;
c:=a+2*b; c:=c+127; c:=c-94
end
else begin
c:=2*a+b;
if c<=14 then begin c:=c+137; c:=2*c-89 end
else begin c:=c+127; c:=c-94 end
end;
Writeln(c)
end.
Информационный процесс - поиск информации
Var i,count:integer; begin i:=3; //количество часов count:=1; //количество амеб while i < = 24 do begin count:=count*2; //каждые 3 часа количество амеб удваивается writeln(i,' hours: ',count); //выводим кол-во часов и амеб i:=i+3; end; readln; <span>end.</span>
Понятным и несущим новую, неизвестную нам ранее информацию