11 июля, 21:32

Ввести с клавиатуры 25 чисел. Посчитать сколько нолей из этих 25 чисел.

+1
Ответы (1)
  1. 11 июля, 22:34
    0
    Var i, k:integer;

    s:string;

    Begin

    for i : = 1 to 25 do begin

    readln (k) ;

    s:=s+inttostr (k) ;

    end;

    k:=0;

    for i : = 1 to length (s) do

    if s[i]='0' then k:=k+1;

    writeln ('K=', k) ;

    End.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Ввести с клавиатуры 25 чисел. Посчитать сколько нолей из этих 25 чисел. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
С клавиатуры вводится число. Вывести на экран столько элементов ряда Фибоначчи, сколько указал пользователь. Вычисление ряда организовать в функцию.
Ответы (1)
Что обозначает критерий отбора <=18.06.2018?
Ответы (1)
Какой вид памяти может вместить наибольшее информации по информатике помогите!!
Ответы (1)
Вася составляет 5-буквенные слова, в которых есть только буквы З, И, М, А, причём в каждом слове есть ровно одна гласная буква и она встречается ровно 1 раз.
Ответы (1)
1. Выберите арифметическое выражение, значение которого максимально. 318 + 1000002 168 + 1011002 418 + 11112 448 + 110002 2. Вычислите значение арифметического выражения 101102 + 348 + 15 Результат запишите в десятичной системе счисления. 3.
Ответы (1)
Название открытого меню 5 класс информатика
Ответы (1)
Последовательно вводятся n целых чисел сосчитать сколько из них совпадают с первым числом кумир
Ответы (1)
1 Для какого из приведённых значений числа X ложно высказывание: (X = 9) ИЛИ НЕ (X < 10) ? 1) 8 2) 9 3) 10 4) 11 2 Для какого из приведенных имён истинно высказывание; НЕ (Первая буква согласная) И НЕ (Буква гласная)
Ответы (1)
Сколько терабайт информации содержит сообщение объемом 24^9 бит?
Ответы (1)
Какое суждение верно? 1) Антивирусная программа должна работать постоянно при работе компьютера 2) Антивирусную программу при работе за компьютером можно включать иногда 3) Антивирусную программу можно включать для проверки компьютера на вирусы
Ответы (1)