Пользователь вводит целые положительные числа окончанием ввода считать ввод -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