Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

Конкурсы и Олимпиады по Машинному программированию (КОМП) Задача 1. Решение.


Рейтинг участников 

Некоторые участники  добрались уже до пятого уровня.

Так выглядит рейтинг на сегодня.

Уровень 5

Белоусов Аркадий Владимирович, Ляпота Павел Николаевич.

Уровень 4

Литвинов Владимир Александрович, Короткевич Геннадий Владимирович, Золотов Алексей Евгеньевич, Зубык Тарас Витальевич, Коженков Александр Владимирович, Кибардин Алексей Андреевич, Силаков Роман Дмитриевич, Рыбак Михаил Валерьевич.

Уровень 3

Чернов Николай Алексеевич, Кожевников Дмитрий Сергеевич.

Уровень 2

Гатин Руслан Музахитович, Коровкин Михаил Георгиевич, Бикмаматов Ильдар Тагирович, Цыпченко Антон Станиславович, Данилов Сергей Александрович, Аржников Анатолий Анатольевич, Рура Виталий Александрович, Крыцкий Никита Владимирович, Кретов Алексей Константинович, Городищер Роман Геннадиевич, Павленко Дмитрий Константинович.

Уровень 1

Коломиец Дмитрий Станиславович, Перум Павел Петрович, Марципака Андрей Юрьевич, Абраменко Матвей Сергеевич, Дудина Арина Александровна, Мирзаянов Ильназ Фнунович, Кувшинов Сергей Михайлович, Галялутдинов Руслан Заяудинович, Долотказин Юрий Владимирович, Беляков Максим Олегович, Корчагин Дмитрий Сергеевич, Вахрушев Андрей Анатольевич.

 Но до уровня 9 ещё далеко и можно успеть присоединиться к конкурсу и обогнать лидеров.


Решение задачи Уровня 1

Задача  уровня 1 была совсем не сложной. Правда, некоторые участники пытались сохранить результат, а потом его выдать. Это вызвало определённые трудности. Длина результата может достигать (200+1)*200 = 40200 символов. Такая строка уже не может уместиться в стандартной строке turbo pascal, да и типа integer не хватает для адресации. В задаче было сказано, что результат нужно выдать в выходной поток, поэтому хранить его не обязательно. При правильном математическом подходе при решении нет никаких особенностей. Даже с пустыми строками A и B правильная программа справляется без дополнительных условий.

На языке Pascal получается такая простая и красивая программа. 

var
A,
B : string;
i : byte;

begin
readln(A);
readln(B);
for i:=1 to length(A) do write(A[i],B);
writeln;
end.

В избранное