Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 61.

Составить программу подсчета количества вхождений буквы "а" в заданном тексте.

program p41;
  uses crt;
  var i,s:integr;
      A:string;
begin
  clrscr;
  write('a=');readln(a) ;
  for j:=1 to length(a) do
    begin
      if copy(a,i,1)= ' a' then s:=s+1;
    end;
  writeln ('s=',s);
  readln;
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100