Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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.