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

Question

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

Comments

это одна задача или две?

---

3 пункта одной задачи

---

сначала "вводится строка", а затем "введенного слова". считать строку словом, или считать еще и слово?

---

секунду, сейчас поточнее скину задание :)

---

1. С клавиатуры вводится строка. С новой строки вводится буква. Составьте программу подсчета количества заданных букв в заданной строке.Определить, является ли длина введенного слова числом, кратным трем.3.Определить, заканчивается ли введенное слово гласной буквой.

---

черт, снова осечка

---

1. С клавиатуры вводится строка. С новой строки вводится буква. Составьте программу подсчета количества заданных букв в заданной строке.2. Определить, является ли длина введенного слова числом, кратным трем.3. Определить, заканчивается ли введенное слово гласной буквой.Вот так, пожалуй, будет правильнее)

Answer 1

Var
  s : string;
  c : char;
  i, a : integer;
begin
  readln (s);
  read (c);  
a := 0;
  for i := 1 to length(s) do if s[i] = c then a := a + 1;
  write (a);
end.

var
  s : string;
begin
  readln (s);
    if length (s) mod 3 = 0  then write ('YES') else write ('NO');
end.

var
  s : string;
begin
  readln (s);
    if s[length (s)] in ['а', 'о',тут через запятую гласные]  then write ('YES') else write ('NO');
end.