Предмет: Информатика,
автор: daria150568
Помогите пж!!!!1 задание
Приложения:
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Физика,
автор: pikapikakovalev
Предмет: Математика,
автор: pastushokroma777
Предмет: Литература,
автор: nizarenok2007
Предмет: Математика,
автор: ggdgsg
Предмет: Физика,
автор: andreas666