ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1545. Иероглифы

Why wrong?
Послано Saimon 14 ноя 2011 03:00
This is my code

var n,i:integer;
baza:array[1..1000]of string[2];
tmp,bukva:string[2];
begin
read(n);
i:=0;
repeat
i:=i+1;
readln(baza[i]);
until i=n;
read(bukva);
for i:=1 to n do
begin
tmp:=baza[i];
if bukva=tmp[1] then writeln(tmp);
end;
end.

Where mystake? I think to this code is right, but i have WA in test1. Help please
Re: Why wrong?
Послано ASARI 23 дек 2011 13:12
tmp:=baza[i];
if bukva=tmp[1] then writeln(tmp);
mistake there.

Edited by author 23.12.2011 13:14