Решения задач acmp.ru
Главная
Вход
Регистрация
Пятница, 10.07.2020, 06:59Приветствую Вас Гость | RSS
Меню сайта

Категории раздела
Pascal [121]
C++ [76]

Поиск

Мини-чат
200

Легкий заработок!

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Форма входа

Главная » Файлы » Pascal

0340 Коробки

Скачать файл можно после просмотра рекламы:

03.07.2012, 13:56
var a,b:array[0..3] of integer; 
i,j:integer; 
f:boolean; 

begin 
assign(input,'input.txt');reset(input); 
assign(output,'output.txt');rewrite(output); 
readln(a[1],a[2],a[3]); 
readln(b[1],b[2],b[3]); 
for i:=1 to 2 do 
for j:=1 to 2 do 
begin 
if a[j]>a[j+1] then 
begin 
a[0]:=a[j];a[j]:=a[j+1];a[j+1]:=a[0] 
end; 
if b[j]>b[j+1] then 
begin 
b[0]:=b[j];b[j]:=b[j+1];b[j+1]:=b[0] 
end; 
end; 
f:=false; 
for i:=1 to 3 do 
if a[i]<>b[i] then f:=true; 
if (not f) then begin writeln('Boxes are equal');halt end; 
f:=false; 
for i:=1 to 3 do 
if (a[i]<b[i]) then f:=true; 
if (not f) then begin writeln('The first box is larger than the second one');halt end; 
f:=false; 
for i:=1 to 3 do 
if (a[i]>b[i]) then f:=true; 
if (not f) then begin writeln('The first box is smaller than the second one');halt end; 
writeln('Boxes are incomparable'); 
close(output) 
end.
Категория: Pascal | Добавил: shum
Просмотров: 4523 | Загрузок: 1 | Комментарии: 2
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020