Регистрация
12345687654321ytrye
31.05.2021 08:47
Информатика
Есть ответ 👍

Найти и напечатать u = min{x+y, xy}

135
386
Посмотреть ответы 2

Ответы на вопрос:

ikotelevskaya78
ikotelevskaya78
4,7(61 оценок)
Var x,y,u: real; function min(a,b: real): real; begin if a> b then min: =b else min: =a; end; begin write('x='); read(x); write('y='); read(y); u: =min(x+y,x*y); writeln(u); end.
shlama283
shlama283
4,5(34 оценок)
Var a,b,c,d: integer; begin write('a = '); readln(a); write('b = '); readln(b); c: =a div b; d: =a mod b; writeln('количество таблеток в каждом флаконе: ',c); writeln('осталось таблеток: ',d); end. пример: a = 1000 b = 30 количество таблеток в каждом флаконе: 33 осталось таблеток: 10

Популярно: Информатика