Даны действительные числа A и B. Если числа не равны, то большее увеличить в 5 раз, а меньшее уменьшить на 5. В противном случаи, если они положительны, то оставить их без изменения, если отрицательные, то возвести в квадрат. Нужно написать блок-схему и программу в Pascal, оператор if.
//Блок-схема в вложении//Pascal ABC.NET 3.1 сборка 1219Var a,b:real;beginread(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 elseif a<0 then begin a:=a*a; b:=b*b; end;writeln(a);writeln(b);end.Пример ввода:34Пример вывода:-220
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Даны действительные числа A и B. Если числа не равны, то большее увеличить в 5 раз, а меньшее уменьшить на 5. В противном случаи, если они положительны, то оставить их без изменения, если отрицательные, то возвести в квадрат. Нужно написать блок-схему и программу в Pascal, оператор if.» от пользователя Marina Potasheva в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!