Question

function bukva(s: string; i, k: integer): integer;
var
n: integer;
begin
n := length(s);
k := 0;
for i := 1 to n do
if (s[i] = 'а') then
k := k + 1;
bukva := k;
end;

var
x, y: string;

begin
if bukva(x) > bukva(y) then
writeln('В первом слове букв "а" больше')
else
if bukva(x) < bukva(y) then
writeln('Во втором слове букв "а" больше')
else
writeln('Одинаковое кол-во букв');
end.


Пишет: "Неверное количество параметров процедуры". Что делать, скажите?

Answer 1

Ответ:

Сделать:

Function bukva(s: string): integer;

var n, i, k: integer;

Было:

Function bukva(s: string; i, k: integer): integer;

3 параметра (строка и 2 целых числа)

bukva(x)

1 параметр (строка)