Написать программу: "Пользователь вводит целые числа. Окончание последовательности - число 101. Найти произведение однозначных чисел."

Question

Филиппия

21 февраля, 00:45

+1

Ответы (1)

Знаете ответ на вопрос?

Лика · Answer 1

Var a, p:integer;

begin

p:=1;

Readln (a) ;

while a101 do

begin

if a div 10 = 0 then

p:=p*a;

readln (a)

end;

writeln (p)

end.