Даны действительные числа A и B. Если числа не равны, то большее увеличить в 5 раз, а меньшее уменьшить на 5. В противном случаи, если они положительны, то оставить их без изменения, если отрицательные, то возвести в квадрат. Н...

Даны действительные числа A и B. Если числа не равны, то большее увеличить в 5 раз, а меньшее уменьшить на 5. В противном случаи, если они положительны, то оставить их без изменения, если отрицательные, то возвести в квадрат. Нужно написать блок-схему и программу в Pascal, оператор if.
Гость
Ответ(ы) на вопрос:
Гость
//Блок-схема в вложении //Pascal ABC.NET 3.1 сборка 1219 Var  a,b:real; begin read(a,b); if a<>b then  if a>b then    begin     a:=a*5;     b:=b-5;    end    else    begin     b:=b*5;     a:=a-5;    end  else if a<0 then  begin   a:=a*a;   b:=b*b;  end; writeln(a); writeln(b); end. Пример ввода: 3 4 Пример вывода: -2 20
Не нашли ответ?
Ответить на вопрос
Похожие вопросы