Склавиатуры вводятся целые числа. количество чисел неизвестно, признак окончания ввода 0. напишите программу, которая вычисляет произведение чисел, которые оканчиваются на 7 и меньше 70.
galina85321
3
27.08.2019 13:30
1
Другие вопросы по теме Информатика
Ариунболор
26.06.2020 13:29
MashaBendyuk
24.04.2020 22:11
accyxob
24.04.2020 22:09
MashaBelous
24.04.2020 22:09
garvarrd
30.04.2020 09:59
belayazima
16.06.2019 11:50
osmyhinaozd6ev
16.06.2019 11:50
nikitagregorovi
27.05.2020 09:02
Популярные вопросы
- Две проволоки совершенно одинаковые за исключением длины : одна 150 см, другая...
3 - 1.почему россию нельзя назвать своим субъектом? 2.какое гос-во считается светским...
1 - Растр - это совокупность пикселей экрана монитора. определите размер растра экрана...
2 - Кроссворд от 5 слов на тему весна с вопросами (лучше сфоткать сделать в тетради...
1 - Какая масса калия содержится в калийном удобрении массой 1кг, если массовая доля...
3 - А9 найдите назывное предложение 1)ночь как год 2)тихая,звёздная ночь 3) посветлело...
3 - На фабрике было 1320м ткани.один магазин взял 5 часть всей ткани,другой-третью...
2 - Вчем смысл предложения: качаясь, движется завеса стих: весенний дождь. ёще светло...
2 - Сочинение на тему: я понимаю православную культуру...
1 - Люди мне обьесните мне как понять : ученые ,эпоха,времени...
2
A:integer;
P:real;
Begin
P:=1;
Repeat
Read(A);
if (A<70)and(A mod 10 = 7) then P:=P*A;
Until A = 0;
WriteLn('P = ',P);
End.