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

Ответы 1

  • 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.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years