• Переделать в обратном порядке(число вроде).
    Var a1, a2, A2, A3, A4
    Begin
    Readln (a); 2943
    A1:= a div 1000; (2)
    A2:=a div 100 mod 10; (4)
    A4:=a mod 10; (3)
    Writeln (A1*A2*A3*A4)
    End.

Ответы 2

  • С П А С И Б О
    • Автор:

      lylall3o
    • 6 лет назад
    • 0
  • Var a, a1, a2, a3, a4: integer;Beginwrite('a = ');Readln (a);a1:= a div 1000;a2:=a div 100 mod 10;a3:=a mod 100 div 10; a4:=a mod 10;Writeln (a4*1000+a3*100+a2*10+a1);End.Пример:a = 29433492
    • Автор:

      babs
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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