Решите всё по алгоритму пожалуйста второй день уже маюсь. Дам 48 баллов.
Решите всё по алгоритму пожалуйста второй день уже маюсь. Дам 48 баллов.
Гость
Ответ(ы) на вопрос:
Гость№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.
Не нашли ответ?
Похожие вопросы