На вход поступает неведомое колличество целых чисел, ввод кончается нулем. Обусловьте

На вход поступает неведомое колличество целых чисел, ввод кончается нулем. Обусловьте количество вводимых чисел

Задать свой вопрос
1 ответ

Это информатика?

Если да,то

1)var

2)a,n:integer;

3)begin

4)readln(a);

5)while alt;gt;0 do

6)begin

7)if (a mod 5=0)or (a mod 7=0)then 8)inc(n);

9)readln(a);

10)end;

11)writeln(n);

12)end.


, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт