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

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

"р".

Question

Информатика

Будимир

4 июля, 03:36

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

городов. (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) Подсчитать количество названий, в которых нет буквы

"р".