задача по информатике

18.10.2011, 16:16. **Показов** 1933. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Составить функцию,определяющую наименьший из двух чисел.

@napasik · 18.10.2011, 16:25

Pascal

type
   number=integer;
 
var 
   a,b:number;
 
function max(a,b:number):number;
begin
if a=b then max:=0 //Если равны - возвращает нуль.
else
if a<b then max:=a
else max:=b;
end;
 
begin
write('Введите а: ');readln(a);
write('Введите b: ');readln(b);
if max(a,b)<>0 then writeln('Наименьшее число: ',max(a,b))
else writeln('Числа равны!');
end.

Алинка*
		1
	задача по информатике 18.10.2011, 16:16. Показов 1933. Ответов 1 Метки нет (Все метки) Составить функцию,определяющую наименьший из двух чисел.

	18.10.2011, 16:25

задача по информатике

Решение