юзер вводит целые положительные числа окончанием ввода считать ввод -1 найти

Юзер вводит целые положительные числа окончанием ввода считать ввод -1 отыскать а)Количество чисел кратных 7 б)сумму чисел которые больше 10 и не превосходят 100 в) сумму чисел которые сразу кратным 3 и 5 г)количество чисел попадающих в интервал

Задать свой вопрос
1 ответ
Без прелюдий, только основная часть программки:
 While (plt;gt;1)
do begin
readln(p);
a) if p mod 7 = 0
then a+=1;
б) if (pgt;10) and (plt;=100)
then b+=p;
вif (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт