Понедельник, 06.05.2024
GNU/Linux в школе
Главная | Регистрация | ВходПриветствую Вас Гость | RSS
Меню сайта
Категории раздела
Основы языка программирования Паскаль [6]
Примеры программ [6]
Наш опрос
Изпользуете ли Вы пиратское ПО?
Результаты | Архив опросов
Всего ответов: 192
Статистика
Форма входа
Главная » Статьи » Программирование и алгоритмизация » Примеры программ
Подсчет символа "а" в строке
{ Кол-во букв "а" в тексте. }
program simbol;
var
    d   : string;
    n,i : integer;
begin
  write('наберите текст  ');
  readln(d);
  n:=0;
  for i:=1 to length(d) do
      if d[i]='а' then n:=n+1;
  write('В тексте а=',n);
  readln;
end.
Категория: Примеры программ | Добавил: Admin (17.12.2009)
Просмотров: 1147 | Рейтинг: 0.0/0
Всего комментариев: 0
Поиск
Время
-->
Друзья сайта
  • Департамент образования Магаданской области
  • Управление образования г. Магадана
  • МОУ СОШ № 29 г. Магадан
  • Инструкции для uCoz
    • -->
    Новости
    linux-mgd.3dn.ru © 2024