Вычисления - в прилагаемом файле
Среди множества редких профессий можно выделить самую редкую. Это смотритель райского острова. Потребность в такой профессии возникла, когда понадобилось найти человека, который занимался бы пропагандой отдыха на райских островах.Одна из туристических компаний искала человека, который на протяжении шести месяцев проживал бы на острове в вилле, плавал в бассейне, нырял с аквалангом, фотографировал, играл в гольф и вёл свой блог. Такой смотритель понадобился для одного из австралийских островов. Его название – Гамильтон.После проведения всемирного конкурса, достойная кандидатура была определена. Зарплата за полгода составила сто десять тысяч долларов. Обладателем данной профессии является всего один человек в мире, именно поэтому она и одержала победу среди претендентов на роль самой редкой.
Var
s1, s2: string;
i: integer;
begin
readln(s1);
for i:=1 to length(s1) do
if s1[i] in ['0'..'9'] then
s2 := s2 + s1[i];
writeln(s2);
<span>end.</span>
Var a,b,c,p:integer;
begin
readln(a,b,c);
if a>0 then begin p:=p*a; writeln(a); end;
if b>0 then begin p:=p*b; writeln(b); end;
if c>0 then begin p:=p*c; writeln(c); end;
writeln('произведение:',p);
end.
A, b, c = int(input())
v = a * b * c
print(v)