Регистрация
коьик1
08.07.2021 08:38
Информатика
Есть ответ 👍

Даны два вещественных числа x и y, не равные друг другу. заменить меньшее из этих чисел половиной их произведения, а большее их разностью.

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

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

romashka301
romashka301
4,4(73 оценок)

паскаль:

var x,y,m,b: real;

begin

write('введите x, y: ');

readln(x,y);

m: =(x+y)/2;

b: =2*x*y;

if x

  begin

  x: =m;

  y: =b

  end

  else

    begin

    x: =b;

    y: =m

    end;

writeln('x=',x,'; y=',y);

end.

ololosha14
ololosha14
4,4(9 оценок)
Var sum,i : integer; begin   sum: =0;   for i: =1 to 10 do sum: =sum+i;   writeln(sum); end. но проще всего это считать без циклов - одной строкой: begin   writeln((10+1)*10 div 2); end.

Популярно: Информатика