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

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

Поиск

Мини-чат
200

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

Статистика

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

Форма входа

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

0007 Золото племени АББА

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

14.06.2012, 00:19
Var a,b,c,maxln:ansistring; 
q:char; 
max: longint; 
begin 
Assign(input,'input.txt'); 
Assign(output,'output.txt'); 
Reset(input); 
Rewrite(output); 
Read(q); 
a:=''; 
b:=''; 
c:=''; 
While q<>' ' do 
begin 
a:=a+q; 
Read(q); 
end; 

Read(q); 
While q<>' ' do 
begin 
b:=b+q; 
Read(q); 
end; 

Read(q); 
While not eoln do 
begin 
c:=c+q; 
Read(q); 
end; 
c:=c+q; 
if length(a)>length(b) then maxln:=a 
else if length(a)<length(b) then maxln:=b 
else if a>b then maxln:=a 
else maxln:=b; 
if length(c)>length(maxln) then maxln:=c 
else if (length(c)=length(maxln)) and (c>maxln) then maxln:=c; 


Writeln(maxln); 
Close(input); 
Close(output); 
end.
Категория: Pascal | Добавил: shum
Просмотров: 4659 | Загрузок: 1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Это интересно!


Copyright MyCorp © 2020