Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
end.

0 0

3 года назад

Прочитать ещё 2 ответа

Файл размером 48 МВ передан по каналу за 2 минуты 8 секунд. Определите скорость передачи файла в Мбит/с

sergeyiv

48 / 128сек = 0,375 Мбайт

0,375 Мбайт * 8 = 3 Мбит

или
0,375 Мбайт * 1024 = 384 Кбайт

0 0

3 года назад

Прочитать ещё 2 ответа

Паскаль абц Ввести несколько чисел. Вывести числа от 20 до 75, кратные 4

mi9029253

Var N, i: integer; // N - переменная хранения количества чисел, которое введет пользователь
A: array[1..20] of integer; // массив, содержащий САМИ ЧИСЛА, которые введет пользователь
begin
write('Сколько чисел вы собираетесь ввести? ');
readln(N);
for i := 1 to N do begin
write('Введите ', i, ' число: '); // ввод чисел
readln( A[ i ] );
end;
write('Из них числа от 20 до 75, кратные 4: ');
for i := 1 to N do begin
if ( A[ i ] >= 20 ) and ( A[ i ] <= 75 ) then // проверяем в каком промежутке лежит число
if ( ( A[ i ] mod 4 ) = 0 ) then write( A[ i ], ' '); // если число меньше 75 и больше 20, тогда проверяем кратно ли оно четырем. Если да, то выводим его
end;
end.

0 0

2 года назад