Предмет:
ИнформатикаАвтор:
holly84var a,b,c:real;
begin
readln(a,b);
if(a > b) then
begin
writeln('a Больше');
c := a;
a := a*b*3;
b := (b+c)/ 2;
writeln('a = ',a,' b = ',b);
end;
if(b > a) then
begin
writeln('b Больше');
c := b;
b := a*b*3;
a := (a+c)/ 2;
writeln('a = ',a,' b = ',b);
end;
end.
Автор:
lucy26Добавить свой ответ
Предмет:
Английский языкАвтор:
piperpinedaОтветов:
Смотреть
Предмет:
Русский языкАвтор:
loki66Ответов:
Смотреть
Предмет:
Русский языкАвтор:
kyanОтветов:
Смотреть
Предмет:
АлгебраАвтор:
richard495Ответов:
Смотреть