Corsairs
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Snop978 Ну, тогда нормально... Значит, в массиве Y - 7 элементов... (по количеству строк) Prokopeck Больше всего, что имеется в виду ситуация, когда вводится большая строка, а "слова" разделены пробелами... Цитата: чтобы он работал с латиницей и с кириллицей. | С этим проблем нет - просто перечисляем в ['A'..'Z', 'А', ... ,'Я'] все большие буквы... Аналогично поступаем со знаками... Для проверки на одинаковость соседних символов можно использовать функции UpperCase и LowerCase: Код: for j:=1 to length(slovo)-1 do if (slovo[j]=slovo[j+1]) or (lowercase(slovo[j])=slovo[j+1]) or (uppercase(slovo[j])=slovo[j+1]) then writeln(slovo); | И больше всего, что во второй задаче надо делать три программки (на каждый вариант отдельно) - или создавать три выходных файла (например, g1, g2 и g3) - по количеству вариантов... Кстати, задача №2 достаточно простая - ее уже можно было бы сделать и самому, по крайней мере первые два варианта... Код проверки для третьего варианта (если использовать тип byte): Код: if not(x in mn) then begin write(g,x); mn:=mn+[x]; end; | |