Задан список из десяти

городов. (array [.]of string) Подсчитать количество названий, в которых нет буквы

"р".

Question

Информатика

Анюся

11 ноября, 09:14

Задан список из десяти

городов. (array [.]of string) Подсчитать количество названий, в которых нет буквы

"р".

+2

Ответы (1)

Знаешь ответ?

Лексаша · Answer 1

Program chik;

const n=10;

var a:array[1 ... 100]of string;

i, k:integer;

begin

for i:=1 to n do

begin

readln (a[i]); if (pos ('р', a[i]) = 0) then k:=k+1;

end;

writeln (k);

end.

Задан список из десятигородов. (array [.]of string) Подсчитать количество названий, в которых нет буквы"р".

Задан список из десяти

городов. (array [.]of string) Подсчитать количество названий, в которых нет буквы

"р".