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

Question

Увар

8 марта, 07:35

+2

Ответы (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.