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

Question

Алина Смирнова

Информатика

22 марта, 19:55

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

+4

Ответы (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.