Даны действительные числа 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
Не нашли ответ?
Похожие вопросы