Информатика 9 класс.(Задачи по Паскалю)
В компьютер вводится 2 числа. Если они не равны, то вычислить их произведение, иначе каждое число уменьшить в 2 раза. После этого компьютер должен вывести результат и сообщение ЗАДАЧА РЕШЕНА.
В компьютер вводится 2 числа. Если они не равны, то вычислить их произведение, иначе каждое число уменьшить в 2 раза. После этого компьютер должен вывести результат и сообщение ЗАДАЧА РЕШЕНА.
Answers & Comments
var x, y, z:real;
begin
read (x, y);
if x <> y then
y:=x*y;
else
begin
x:=x/2;
y:=y/2;
end;
writeln ('x=', x, 'y=', y, 'z=', z);
writeln ('ЗАДАЧА РЕШЕНА');
end.