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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Ванёк20061

14.09.2021 09:45

Какие программы можно запустить из панели быстрого запуска? ....

bogdanka1503p08ifa

14.09.2021 09:45

ответить на вопросы: 1)что такое структурный оператор в pascal abc? 2)что такое компьютерный вирус? 3)какова общая структура программы на языке pascal abc? 4)что такое...

Siya99

27.01.2023 01:38

Добавить заданную подстроку в данную строку начиная с номера k...

sofiya113

27.01.2023 01:38

ответить на вопросы: 1)переменная типа boolean. 2)операции сравнения в языке pascal abc. 3)логические операции в pascal abc. 4)что такое имя файла, расширение файла?...

Vadik01K

20.01.2021 17:52

Для чего нужны контроллеры и драйвера...

rogaoksi

20.01.2021 17:52

На столе расставили 10 матрешек по росту. две соседние матрешки отличаются по весу в 2 раза. самая маленькая из них весит 1 грамм, далее: 2г, 4г, 8г, и т.д. сколько...

Ggogog

20.01.2021 17:52

Прибор фиксирует показания температуры воздуха с интервалом 1 час. разброс температур: +12 - +27 включительно. каждое показание температуры кодируется в компьютере...

xzc999

05.06.2022 02:47

Заранее за Составить алгоритм, печатающий «ДА», если оба числа m и n неотрицательные, и «НЕТ» в противном случае.2) Составить алгоритм, проверяющий, является ли данное...

сымбат59

12.04.2022 19:19

Дана программа. Каков будет результат на выходе, если y=25, x=19? Program razniza; Var X,Y,Z: integer; Begin Write( Введите два числа ); Readln(X,Y); Z:=X-Y; Write(Z);...

alinkaaa25

15.12.2021 03:35

Укажите ошибку в записи адреса и причина ее ошибочности: 95.134.258.123...

Ответ:

murka1402

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 оценок)

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

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