Войти Регистрация Спроси ai-bota

Найти количество чисел из a b c d равных 0

Ответ:

katyaivanova17

27.08.2020 12:46

Var a,b,c,d,x: integer;
begin
x:=0;
readln(a,b,c,d);
if a=0 then inc(x);
if b=0 then inc(x);
if c=0 then inc(x);
if d=0 then inc(x);
writeln(x);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

ваня2288на7

29.04.2021 18:01

Жинақтау Тапсырма: Базарда сатылымда 10 ат тұр. Аттардың сатылу бағасынөздерің белгілеңдер. Аттардың бағасы бойынша бірөлшемдінатурал сандар массивін құрыңдар. Осы...

AREN12082003

04.10.2020 13:29

Необходимо вывести последовательность чисел от 0 до 10 по убыванию. Выберите верно написанную конструкцию цикла. * for i in range(0, 10, -1): for i in range(10,...

Шмигельська

06.06.2021 18:35

Необходимо вывести последовательность нечетных чисел из промежутка от -10 до 10. Укажите верную конструкцию цикла. * for i in range(0, 10, 3): for i in range(-10,...

dianakokorina91

08.08.2021 12:55

Необходимо вывести последовательность четных чисел из промежутка от -100 до 100. Укажите верную конструкцию цикла. * for i in range(0, 100, 2): for i in range(-100,...

adamka5551p0cigl

14.01.2023 00:07

Дано трехзначное число. Найти число, полученное при прочтении его цифр справа налево.python ...

djein2007

02.05.2023 02:19

Синформатикой (написать короткую програмку в freepascal) ввести 2 числа, если сумма четная делить на 2, если нет оставить без изменений. заранее )...

Litsonchik

31.08.2021 18:42

Итоговый тест по дисциплине «Информатика» Задания с выбором ответа (выбранный ответ запишите в бланке ответов № 1, если нет возможности распечатать бланк ответов,...

AnnaKhusainova

15.10.2020 00:14

Какая строка получится в результате применения приведённой ниже программы в строке...

nakoreshoy50qg

27.01.2020 18:40

Формула в ЕТ може містити:А) змінні;Б) функції;В) значення;Г) посилання на комірки;Д) діапазони комірок;Е) назви аркушів...

еддпмаад

29.06.2020 03:51

Укажіть види кабелів якими можуть з єднувати комп ютери та інші пристрої мережі у дротових середовищах!!...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку