Дана строковая величина S определите каких букв в ней больше а или о
5-9 класс
|
оооочень надо(
var s:string; a,o,i:integer;
begin
readln(s);
for i:=1 to length(s) do begin
if s[i]='а' or s[i]='a' then a:=a+1; //для английских и русских букв
if s[i]='о' or s[i]='o' then o:=o+1;
end;end.
Другие вопросы из категории
Заранее благодарю!
кодирования 16 бит, что время звучания составляет 3 минуты.
Program Primer;
var
m:real;
n:real;
begin
writeln('Введите данные:');
writeln('Число "m":');
readln(m);
writeln('Число "n":');
readln(n);
If (m mod n=0) then writeln('Частное=', m/n);
If (m mod n<>0) then writeln('НЕ ДЕЛИТЬСЯ');
End.
Читайте также
№2 Подсчитать каких букв в предложении больше "а" или "е"
все в паскале
раньше: "x" или "e" ? 3) Дана символьная строка . Определить будет ли произведение цифр нечетным числом?
1)Acess.md 2)Accesst.dbf 3)Access.mdb 4)Akcces.m1
2.Определите,какое из указанных имен файлов не удовлетворяет маске: ??pri*.?*
1)caprika.wow 2)weprik.cpp 3)otopri.c 4)reprint.be
от деления этого числа на 2.
2. Ввести двузначное число. Определить, какая цифра в числе больше.
3. Дано число. Является ли число 7 его делителем?