HELP!! 2 задачи по теме "Разветвляющийся алгоритмы" Помогите :С 1. Определить z=min {a,b} 2. Вводится температура воды t. Если t меньше 0, то вывести фразу "твёрдое состояние", если t больше 100 - "газообразное состояние", в п...
HELP!! 2 задачи по теме "Разветвляющийся алгоритмы"
Помогите :С
1. Определить z=min {a,b}
2. Вводится температура воды t. Если t<0, то вывести фразу "твёрдое состояние", если t>100 - "газообразное состояние", в противном случае - "жидкое состояние".
Гость
Ответ(ы) на вопрос:
Гостьvar a,b,z:integer;
function min(a,b:integer):integer;
begin
if a < b then min:=a else min:=b;end;
begin
read(a,b);z:=min(a,b);writeln('z =',z);end.
Не нашли ответ?
Похожие вопросы