Задача на разветвление: можно ли вклеить прямоугольную фотографию в прямоугольный альбом?

@dtplt · Регистрация: 19.01.2015

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

определить,можно ли вклеить прямоугольную фотографию в прямоугольный альбом так,чтобы стороны фотографии были параллельны сторонами альбома

@JuriiMW · 20.01.2015, 10:04

Pascal

var A1, A2, P1, P2 : Integer;
begin
  Write('Введите через пробел длины сторон листов альбома: '); ReadLn(A1, A2);
  Write('Введите длины сторон фотографии: '); ReadLn(P1, P2);
  WriteLn('Фотографию можно вклеить в альбом = ', (Min(A1, A2) > Min(P1, P2)) and (Max(A1, A2) < Max(P1, P2)));
end.

@Puporev · 20.01.2015, 10:16

Что-то не то, введите 5 4 6 2

Добавлено через 1 минуту
И красивше будет

Pascal

1	'Фотографию можно вклеить в альбом? '

@JuriiMW · 20.01.2015, 10:27

Сорри…
Второй знак тоже должен быть „>“

Pascal

var A1, A2, P1, P2 : Integer;
begin
  Write('Введите через пробел длины сторон листов альбома: '); ReadLn(A1, A2);
  Write('Введите длины сторон фотографии: '); ReadLn(P1, P2);
  WriteLn('Фотографию можно вклеить в альбом = ', (Min(A1, A2) > Min(P1, P2)) and (Max(A1, A2) > Max(P1, P2)));
end.

@dtplt 1 / 1 / 0 Регистрация: 19.01.2015 Сообщений: 8
		1
	Задача на разветвление: можно ли вклеить прямоугольную фотографию в прямоугольный альбом? 20.01.2015, 09:01. Показов 1524. Ответов 3 Метки нет (Все метки) определить,можно ли вклеить прямоугольную фотографию в прямоугольный альбом так,чтобы стороны фотографии были параллельны сторонами альбома 0

	20.01.2015, 10:27