Регистрация
shkmidtvp07466
22.04.2022 22:45
Информатика
Есть ответ 👍

Найдите количество исковой буквы в заданном слове в паскаль нужно сейчас сдавать ​

162
413
Посмотреть ответы 2

Ответы на вопрос:

4549bk
4549bk
4,8(51 оценок)

var c, s: string;

i, sum: integer;

begin

    s: ='moloko';

    c: ='o';

    sum: =0;

    for   i: =1 to length(s) do

        if s[i] = c then

            sum += 1;

    writeln(sum);

end.

Roman4ik1207
Roman4ik1207
4,5(79 оценок)
//блок-схема во вложении var n,a,i: integer; r: real; begin readln(n); for i: =1 to n do begin; readln(a); r: =r+a; end; r: =r/n; writeln(r); end.

Популярно: Информатика