1. С клавиатуры вводятся числа, "0" - конец ввода. Сколько положительных

1. С клавиатуры вводятся числа, "0" - конец ввода. Сколько положительных чисел ввели. 2. С клавиатуры вводятся двухзначные числа, до тех пор пока их сумма не превзойдет 200. Сколько ввели чисел кратных 9? Решить через паскаль

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

Ответ:

1)

Begin

Count:=0;

repeat

Read (ch);

If chgt; 0 then inc(count);

Until chlt;gt;0

Write(count);

End.

2)

Begin

Sum:=0;

Count:=0;

repeat

Read (ch);

Sum:=sum+ch;

If ch mod 9=0 then inc(count);

Until sumlt;200

Write(count);

End.

Глазихин Руслан
Что значит Inc?
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт