Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить пожалуйста
Помогите решить пожалуйста
Коту Бублику очень нравятся коробки. И чем больше коробка, тем лучше. Но коробки могут иметь разные размеры, и выбор коробки, имеющей больший объем, для Бублика является сложной математической задачей.
Напишите программу, которая по размерам двух коробок, имеющих форму параллелепипеда, определяет, какая из коробок имеет больший объем.
В первой строке содержатся три целых числа в диапазоне от 1 до 100 — длина, ширина и высота первой коробки. Во второй строке содержатся три целых числа в диапазоне от 1 до 100 — длина, ширина и высота второй коробки.
Вывести сообщение FIRST, если объем первой коробки больше, чем объем второй коробки. Вывести сообщение SECOND, если вторая коробка имеет объем больше, чем первая. В случае равенства объемов коробок вывести сообщение EQUAL.
1 | Автор: Vasy1234 | 2013-10-26, 13:36   |  Репутация: [ + 0 ]
var
v1,v2,a1,b1,c1,a2,b2,c2:integer;
begin
readln(a1,b1,c1);
readln(a2,b2,c2);
v1:=a1*b1*c1;
v2:=a2*b2*c2;
if (v1 > v2) then writeln('FIRST') else
if (v1 < v2) then writeln('SECOND') else writeln('EQUAL');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2013-10-27, 15:54   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить пожалуйста
  • Страница 1 из 1
  • 1
Поиск: