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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

0061 Баскетбол

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

04.06.2012, 17:20
var x,i,j,y,a,a1,a2,a3,a4,b,b1,b2,b3,b4:integer;
f1,f2:text;
begin
assign(f1,'input.txt');
assign(f2,'output.txt');
reset(f1);
rewrite(f2);
read(f1,a1,b1,a2,b2,a3,b3,a4,b4);
a:=a1+a2+a3+a4;
b:=b1+b2+b3+b4;
if a>b then write(f2,'1');
if a<b then write(f2,'2');
if a=b then write(f2,'DRAW');
writeln(a);writeln(b);
close(f1);
close(f2);
end. 
Категория: Pascal | Добавил: shum
Просмотров: 4194 | Загрузок: 0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020