Информатика, опубликовано 2018-08-22 19:21:47 by Гость
Переделать в обратном порядке(число вроде). 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.
Ответ оставил Гость
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
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на