Задать вопрос

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

+1
Ответы (1)
  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) Подсчитать количество названий, в которых нет буквы "р". ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Какие из приведенных описаний массивов являются правильными? 1) Var A: array [1 ... 20] of real; 2) Type Mas=array ['A' ... 'D']; Var A:Mas; 3) Type Город = (Киев, Москва, Сочи, Адлер); Var A:array[Город] of real; 4) Var MM:array [false ...
Ответы (1)
В чём ошибка этой программы? Она должна запрашивать ввод 2 чисед, а потом вызывать функцию с помомщью которой выведет сумму и разность числа var a, b, c:string; procedure summ (plus:string; minus:string); Begin plus:=a+b; minus:=a+b;
Ответы (1)
2. Сколько элементов в каждом из следующих массивов: • var mb: array [2 ... 20] of integer; • type myarray1 = array [0 ... 8] of integer; myarray2 = array [-5 ... 5] of integer; var aa: myarray1; bb: myarray2;
Ответы (1)
Допишите программу: - поменяйте местами первый и последний столбики; Вот программа: Program JHK; const n=5; var ns, a:real; j, p, i, pr, nm:integer; d:array[1 ... n, 1 ... n]of real; m:array[1 ...
Ответы (1)
1) В диапазоне от 0 до 100 подсчитать количество чисел оканчивающихся на 3.2) В диапазоне от 0 до 50 подсчитать количество чисел сумма цифр которых равна 3.
Ответы (1)