Вопрос, который вызвал трудности

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

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «Информатика». Ваш вопрос звучал так:

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

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Без прелюдий, только основная часть программы:
 While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)<br>then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET