Переделать в обратном порядке (число вроде).

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 (A1A2A3*A4)

End.

Question

Информатика

Пета

28 ноября, 00:49

Переделать в обратном порядке (число вроде).

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 (A1A2A3*A4)

End.

+1

Ответы (1)

Знаете ответ на вопрос?

Линя · Answer 1

Var a, a1, a2, a3, a4: integer;

Begin

write ('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 = 2943

3492

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

Переделать в обратном порядке (число вроде).

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 (A1A2A3*A4)

End.