М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
GuldanaManarbek
GuldanaManarbek
01.07.2020 17:23 •  Информатика

C++ Количество нулей

Дано несколько чисел. Подсчитайте, сколько из них равны нулю, и выведите это количество.

Входные данные

Cначала вводится число n, затем вводятся ровно n целых чисел. Все числа во входных данных целые неотрицательные, не превосходящие 30000.

Выходные данные

Выведите ответ на задачу.

Примеры

Ввод

Вывод

5

0

7

0

2

2

2

👇
Ответ:
dalakovadg
dalakovadg
01.07.2020

#include <iostream>

using namespace std;

int main()

{

int n , x , k = 0;

 cin >> n;

 

 for (int i = 1; i <= n ; i++)

 {

   cin >> x;

   if (x == 0)

     k++;

 }

 cout << k;

}

Объяснение:

4,5(86 оценок)
Открыть все ответы
Ответ:
Первая программа
var
  n, i, x, s : integer;
  t : boolean;
begin
  writeln('количество чисел');
  readln(n);
  s := 1;
  t := false;
  for i := 1 to n do
    begin
      writeln(i,' число');
      readln(x);
      if x < 7 then
        begin
          t := true;
          s := s*x;
        end;
    end;
  if t then
    writeln('ответ ',s)
  else
    writeln('ответ ',0);
end.

Вторая
var
  n, i, x, s : integer;
begin
  writeln('kolichestvo chisel');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' chislo');
      readln(x);
      if (x >= 10) and (x < 99) then
        s := s + 1;
    end;
  writeln('Otvet: ',s);
end.

Третья
var
  n, i, x, s : integer;
begin
  writeln('kolichestvo chisel');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' chislo');
      readln(x);
      if x > 10 then
        s := s + 1
      else if x < 10 then
        s := s - 1;
    end;
  if s > 0 then 
    writeln('chisel >10 bolche')
  else if s < 0 then
    writeln('chisel <10 bolche')
  else    writeln('chisel porovnu');
end.

Четвёртая
var
  n, i, x : integer;
  st : string;
begin
  writeln('kolichestvo chisel');
  readln(n);
  for i := 1 to n do
    begin
      writeln(i,' chislo');
      readln(x);
      if (x > 12)  and (x < 40) and (x mod 7 = 0) then
        st := st + IntToStr(x) + ' ';
    end;
    writeln('otvet: ',st);
end.
4,7(11 оценок)
Ответ:
TamaraPanova63
TamaraPanova63
01.07.2020
вариант решения, если элементы вводятся
var
  n, i, x, s : integer;
  t: string;
begin
  writeln('количество чисел');
  readln(n);
  s := 0;
  for i := 1 to n do
    begin
      writeln(i,' число:');
      readln(x);
      if (x > 9) and (x<100)) then
        begin
          t :=  IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.

вариант решения, если элементы заданы массивом
const
n=50
var
  i, x, s : integer;
  t: string;
  m1: array [1..n] of integer;
begin
  s := 0;
  for i := 1 to n do
     begin
      x := m1[i];
      if (x > 9) and (x<100)) then
        begin
          t := IntToStr(x);
         if (((t[1] = '3') and (t[2] <> '3')) or (t[1] <> '3') and (t[2] = '3'))   then s := s+1;
        end;
    end;
    writeln('ответ ',s)
end.
4,8(89 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ