Предмет: Информатика, автор: daria150568


Помогите пж!!!!1 задание​

Приложения:

Ответы

Автор ответа: farodis
1

Программа на Паскале:

var x,y,z:real;

begin

writeln('Введите значение x: ');

readln(x);

writeln('Введите значение y: ');

readln(y);

if x<y then

z:=x/y

else

z:=x*y;

writeln('z = ',z);

end.

Похожие вопросы
Предмет: Физика, автор: andreas666