Составить программу в паскале даны 2 действительных числа, не равные друг другу. меньшее из них заменить половиной их суммы, а большее- их утроенным произведением. ввод и вывод с комментариями.

160

217

Посмотреть ответы 2

Ответы на вопрос:

danillbiz

Информатика

4,4(75 оценок)

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

Дарьялол1

Информатика

4,8(96 оценок)

Один любой символ обязан быть * - символов может быть несколько или ни одного *o*a*.db* - fotograf.db, korabli.db2 ? a*.*d* - mart.dbr *a*.d? ? - korabli.db2, mart.dbr, aerograf.dat, superplan.db2 *a*.db? - korabli.db2, mart.dbr, superplan.db2 *o*a*.db? - korabli.db2