Написать программу: "Пользователь вводит целые числа. Окончание последовательности – число 101. Найти произведение однозначных чисел."
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
p:=1;
Readln(a);
while a<>101 do
begin
if a div 10 = 0 then
p:=p*a;
readln(a)
end;
writeln(p)
end.