23 Фев 2020 в 19:50
262 +1
1
Ответы
1

uses CRT;

 var

  a,b,c,x: integer;

  y: real;

Begin

Clrscr;

Write('a,b,c,x через пробел:');

Read(a,b,c,x);


y:=SQR((a+b+c)/x);


Write(y:2:2);

readln;

readln

end.

24 Фев 2020 в 10:11
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир