Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- begin
- var a := ReadLnInteger('Введите число A:');
- var b := ReadLnInteger('Введите число B:');
- var c := ReadLnInteger('Введите число C:');
- var d := ReadLnInteger('Введите число D:');
- WriteLn(max(a, b) < max(c, d) ? 'Упс...ошибка :(' : ((a div c) * (b div d)) > ((a div d) * (b div c)) ? 'при размещении их длинной стороной вдоль длинной стороны' : ((a div c) * (b div d)) = ((a div d) * (b div c)) ? 'без разницы' : 'при размещении их короткой стороной вдоль длинной стороны');
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement