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:


Последние вопросы
Здравствуйте Меня зовут Виталий, я AdOps-аналитик компании  Adfinity.pro Заинтересовал ваш проект obrazovalka.com Думаю сможем увеличить

Разные вопросы.

мне очень срочно нужно сочинение по рассказу экспонат номер по дной

Литература.

мне очень срочно нужно сочинение по рассказу экспонат номер по дной

Литература.

В семье из трех человек три электронных устройства: ноутбук, планшет и

Разные вопросы.

Жаркыраган кашка маш жаралгандан ашка маш табышмак жообу менен

Кыргыз тили.

За лето подруги прочитали 48 книг.Причем Оля прочитала в 3 раза

Математика.

Периметр равнобедренного треугольника ABC (AB=BC) равен 34 см. Периметр треугольника ABM,

Разные вопросы.

«Металлическая болванка, нагрета до 420C, охлаждается в воздухе, температура которого 20C,

Алгебра.

xdy=(x+y)dx, y(1) = 0. по условию Коши помогите решить

Алгебра.

помогите пожалуйста. надо записать уравнения диссоциации следующих электролитов: карбонат натрия; бромиб

Химия.

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

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

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

Войти на сайт