a008888 Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:      const ABC: String[26]= 'ABCDEFGHIJKLMNOPQRSTUVWXWZ'; var   opros: String;   Counter,Counter2: Integer;   i,j: Integer;   Max_opros: Integer; begin   readln(opros);   Counter:=0;   Max_opros:=length(opros);     i:=1;   j:=1;     repeat     begin     repeat         if ABC[i]=opros[j] then Counter:=Counter+1;       j:=j+1;     until (Counter=1) or (j>Max_opros);     end;     i:=i+1;j:=1;Counter2:=Counter2+Counter;Counter:=0;   until i>26;   writeln(Counter2); end.       Всего записей: 1112 | Зарегистр. 09-11-2007 | Отправлено: 11:19 08-11-2008 | Исправлено: a008888, 14:09 08-11-2008

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование