В последовательности 4 целых чисел, заданных с клавиатуры, отыскать количество нулей.

В последовательности 4 целых чисел, данных с клавиатуры, отыскать количество нулей.

Задать свой вопрос
Владислав Бланников
язык программирования указывайте пожалуйста
Сергей Акопьянц
pascal ABC
Танюха
С циклом либо без него?
Миха Басинкевич
с циклом
Ульяна Ешкова
Числа последовательности вводятся по очереди либо в одной строке?
Ksenija Havrunova
по очереди
1 ответ

program raf105;

var i,a,nul: integer;

begin

writeln('Введите 4 числа по очереди:');

for i:=1 to 4 do

begin

 readln(a);

 if a = 0

   then nul:= nul+1;

end;

writeln('Количество нулей: ',nul);

end.

PascalABC 3.4.2

Максим Белага
большое спасибо))
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт