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

Question

Никитьич

25 августа, 09:01

+4

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