Дана строка. Подсчитать количество букв«о» в строке.

[Владйфя123]

НАПИШИТЕ пожалуйста программу на поскале

Дана строка, вводимая пользователем с клавиатуры. Подсчитать количество букв«о» в строение и выдать на экран

[Vanta11a]

for (int i = 1; i < strlen(string); i++) {
string[i]=='o'?n++;
}
cout << n;

Написал. Языка пОскаль я не знаю.


А хотя...

i := 0;
for i := О tо lеn(str) dо
bеgin
if (srt[i]) thеn inс(n);
еnd;
writlen(m);

Я знаю тут минимум 3 косяка. Сделаны специально.

[Poma][a]

Я знаю тут минимум 3 косяка. Сделаны специально.

Тут их явно не 3..
№1

i := 0;

№2

i := О

№3

lеn(str)

№4

if (srt[i]) thеn

№5

inс(n)

№6

writlen(m);

[Rififi]

Poma][a

Тут их явно не 3..

написано же, три - специально. а не специально - все остальные:D

[Stilet]

№1
Цитата:
i := 0;

А тут где косяк? Если не считать того что переменка не описана в var?

[Poma][a]

А тут где косяк? Если не считать того что переменка не описана в var?

Это можно назвать не косяком, но я предпочитаю называть это именно так..
Зачем присваивать что-то переменной, если слудующей строчкой эта же переменная используется в качестве сщетчика в цикле for?

[Kemperh4]

Program p1;
var s:string;

Function a1(s1:string;c1:char):integer;
var i,k:integer;
begin
  k:=0;
  For i:=1  to length(s1) do 
     if s1[i] = c1 then inc(k);
  a1:=k;
end;

begin
  read(s);
  write(a1(s,'о'));
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.