В заданном тесте найдите количество трехбуквенных слов - Turbo Pascal

  1. В заданном тесте найдите кол-во трехбуквенных слов. Слова отделены друг от друга пробелом Заранее большое спасибо


textual

Код к задаче: «В заданном тесте найдите количество трехбуквенных слов - Turbo Pascal»

var a,s:string;
    i,j,k:integer;
begin
readln(a); k:=0;
i:=0; j:=1;
s:='';
while i<ord(a[0]) do
begin
while (a[j]<>' ') and (j<=ord(a[0])) do
begin
s:=s+a[j];
inc(j);
end;
if a[j]=' ' then begin inc(j); inc(i); end;
if (s<>'')and(ord(s[0])=3) then inc(k);
i:=i+ord(s[0]);
s:='';
end;
writeln(k);
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.833 из 5



Похожие ответы
  1. Здравствуйте ребят, нужна ваша помощь помогите составить программу: а) Y=е^x –sin(x) при Х=2.312; б) координаты используемой точки: (1.5;0.5). Cкрин задачи

  1. Составить постановку, алгоритм и в PASCALе программу поиска лежащих в пределах от 1976 до 2045 элементов массива Y из 12 чисел. Значения элементов указать с клавиатуры, помогите, это срочно! Приложу то, что я написал, но где-то ошибка, помогите

  1. Напечатать элементы заданной матрицы А(N, N) в следующем порядке: (смотреть вложение)

  1. Массивы. Можно более подробно? Дан вектор A(2n). Если сумма S1=a1+a2+...+an равна сумме S2=an+1+ an+2+...+ a2n, то поменять местами первый и последний элементы вектора.

  1. Составить процедуру и функцию,которая по заданному номеру месяца печатает название времени года

  1. написать функцию, которая в заданном слове удаляет заданную букву(буквы и слово вводятся с клав)

  1. В заданном тексте удалить все фрагменты, заключенные в круглые скобки (вместе со скобками). Текст вводить собственноручно.

  1. В заданном слове произвести обмен первого и последнего символов. Я сделал, но мне сказали сделать без переменной "С" чтобы как-то оптимизировать программу. Вот мое решение но сделать нужно как-то по другому чуток

  1. Вычислить сумму элементов массива а, значения которых кратные N, если элементы массива определяются по формуле ai+1=(37*ai+3) mod 64. Значение а1=2; i меняется 1-19.

  1. Преобразовать строку, используя две подпрограммы: первая выделяет в строке слово, вторая выводить слово на экран в формате: 1_слово1 1_2_слово2 1_2_3_слово3 и так далее. Слова в строке разделены знаками препинания и пробелами, которые могут стоять как по одиночке, так и несколько подряд Программа написана, компиляция проходит успешно, однако она просто не работает. Предложение ввода названия файла идет, а после этого ничего. Ошибку найти сама не могу, возможно, кто-то сможет помочь.