Задать вопрос
ИнформатикаИнформатика
11 апреля, 03:40

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

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

"р".

+2
Ответы (1)
  1. 11 апреля, 04:17
    0
    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) Подсчитать количество названий, в которых нет буквы "р". ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
15. string s = "Я люблю программировать!"; int p = s. LastIndexOf ("") ; Console. WriteLine (p) ; 16. string s = "Я люблю программировать!"; string res=s. Remove (27) ; Console. WriteLine (res) ; 17.
Ответы (1)
Укажите правильное описание целочисленного линейного массива из 100 элементов. 1.) var B: array [1 ... 100] of real; 2.) var M: array [1 ... 100] of char; 3.) var A: array [0 ... 99] of string; 4.) var G: array [5 ... 104] of integer;
Ответы (1)
Какие описания массивов являются правильными с точки зрения компилятора языка Pascal? var a1: array[-1000 ... 50] of integer; const m1 = 20; m2 = m1*100; var a6: array[m1 ... m2] of - 200 ... 200; var a2: array[200 ...
Ответы (2)
Задача 1. Даны следующие описания массивов: var a, b : array [1 ... 10] of integer; var c : array [0 ... 9] of integer; var d : array [0 ... 10] of char; var e : array [1 ...
Ответы (1)
Отметьте все правильные объявления символьных строк. var s: string; var string: s; var s, s1, s2: array[1 ... 10] of char; var s1, s2: integer; var s, s1, s2: string;
Ответы (1)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа
Главная » Информатика » Задан список из десяти городов. (array [.]of string) Подсчитать количество названий, в которых нет буквы "р".
Регистрация Забыл пароль