Дано натуральное число. Определить произведение его цифр больших 7

Ответы:

Анита Потоцькая

30-12-2013 08:49

var a,b,i,bug:integer;s:string;begin;readln(a);str(a,s);b:=1;for i:=1 to length(s) dobegin;val(s[i],a,bug);if a>7 then b:=b*a;end;writeln(b);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя Darya Sokolskaya

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дано натуральное число. Определить произведение его цифр больших 7» от пользователя Darya Sokolskaya в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!