Вывести на экран значение квадрата большего из 4х чисел

@Tappka · Регистрация: 24.01.2013

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

Даны 4 числа a,b,c,d вывести на экран значение квадрата большего из этих чисел, используя подпрограмму нахождении большего из двух

Kodzaev · 12.02.2013, 20:46

Pascal

Function max(x,y: Integer): Integer;
begin
  If x>y Then max:=x
  Else max:=y;
end;
Var
  a,b,c,d: Integer;
BEGIN
Writeln('Введите 4 числа: ');
Readln(a,b,c,d);
Writeln('Максимум:');
If max(a,b)>max(c,d) Then
Writeln(Sqr(max(a,b)))
Else
Writeln(Sqr(max(c,d)));
END.

@s1lver · 12.02.2013, 21:23

Можно ещё короче.

Pascal

function max(x,y: integer): integer;
begin
  if x>y then max:=x
  else max:=y;
end;
 
var a,b,c,d: integer;
 
begin
  writeln('Введите 4 числа: ');
  readln(a,b,c,d);
  writeln('Максимум:');
  writeln(sqr(max(max(a,b),max(c,d))))
end.

@Tappka 0 / 0 / 0 Регистрация: 24.01.2013 Сообщений: 20
		1
	Вывести на экран значение квадрата большего из 4х чисел 12.02.2013, 15:13. Показов 1686. Ответов 2 Метки нет (Все метки) Даны 4 числа a,b,c,d вывести на экран значение квадрата большего из этих чисел, используя подпрограмму нахождении большего из двух 0

	12.02.2013, 21:23

Опции темы

Вывести на экран значение квадрата большего из 4х чисел

Решение