Напишите программу, которая определит, каких букв в строке с русским текстом больше: «р» или «О» (см. пример 9.3). Пример 9.3.
V. Программа:
var St: string:
n, k1, k2: integer;
begin
writeln('Введите текст'); readln(St);
n := length(St); k1 := 0; k2 := 0;
for var i := 1 to n do
begin
if st[i] = '.' then
k1 := k1 + 1;
if St[i] = ',' then k2 := k2 + 1;
end;
if kl > k2 then
writeln('Точек больше)
else
if k2 > kl then
writeln('Зaпятых больше")
else
writeln('Количество запятых равно количеству точек');
очень надо
text = str(input())
if text.count('р') > text.count('О'):
print('больше - р')
elif text.count('р') == text.count('О'):
print('р = О')
else:
print('больше - О')
программа будет считать ВСЕ буквы O и P, и заглавные и прописные.
Pascal
Объяснение:
var
St: string;
n, k1, k2, i: integer;
begin
writeln('Введите текст'); readln(St);
n := length(St); k1 := 0; k2 := 0;
for i := 1 to n do begin
if Uppercase(st[i]) = 'P' then inc(k1);
if Uppercase(St[i]) = 'O' then inc(k2);
end;
if k1 > k2 then writeln('P больше')
else
if k2 > k1 then writeln('О больше')
else writeln('Количество P равно количеству O');
end.