С клавиатуры вводятся целые числа. Количество чисел неизвестно, признак окончания ввода 0. Напишите программу, которая вычисляет произведение чисел, которые оканчиваются на 7 и меньше 70.

Question

Филиппа

16 апреля, 22:17

+1

Ответы (1)

Знаете ответ?

Греция · Answer 1

Var

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.