Сязыками программирования. вася гениальный программист. по крайней мере, он так считает. поэтому все, что рассказывают на уроках информатики, ему давно известно. поэтому вместо того, чтобы слушать преподавателя, вася придумал следующую игру: он берет с собой газету и вычеркивает в тексте все буквы, содержащие полости. например, он вычеркивает буквы o и a, но пропускает w и c. вася считает, что таким образом он тренирует внимательность. однако ему как-то надо проверять, что он нигде не ошибся. он считает, что для этого достаточно проверить, что количество вычеркнутых букв верно. поэтому он просит вас написать программу, определяющую, сколько букв должно быть вычеркнуто в данном тексте. в первой строке входного файла задана строка из строчных латинских букв и пробелов - текст, который вася брал с собой на урок. длина строки не превышает 10^5 символов. газета, из которой вася взял этот текст, использует те же шрифты, что и данное условие в первом выведите ответ на примеры a sample sentence (выходной- 7) jing jang walla bing bing (12) (8) c++ и pascal(если можно) заранее

y, x = map(int, input().split()) #Размеры матрицы, если матрицы имеет квадратную форму, то просто y = x = int(input())

matrix = [list(map(int, input().split())) for i in range(y)] #Заполняем матрицу

ans = [sum(matrix[k][i] for k in range(y)) for i in range(x)] #Находим сумму каждого столбца

print(*ans) #Выводим эти суммы

P.S. Комментарии убери, иначе не будет работать

P.S.S. Версия без коментариев и пример работы:

y, x = map(int, input().split())

matrix = [list(map(int, input().split())) for i in range(y)]

ans = [sum(matrix[k][i] for k in range(y)) for i in range(x)]

print(*ans)

Ввод:

3 4 #Размер

3 4 5 6 #Матрица

1 2 3 4

1 1 1 1

Вывод:

5 7 9 11

var

 i, n:integer;

 price:real;

begin

  n := 20;

  price := 20.4;

  for i := 1 to n do

    writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');

end.

//вторая задача

var

  i, f, n:integer;

begin

  f := 453;

  n := 10;

  writeln('фунты    граммы');

  for i := 1 to n do

    writeln(' ', i:2, i * f :11);

end.

//третья задача

var

  i, n:integer;

  k:real;

begin

  n := 20;

  writeln('Введите курс '); readln(k);

  writeln('доллары    рубли');

  for i := 1 to n do

    writeln('  ', i:2, i * k:13:2);

end.