Вопрос по информатике:
Переделать в обратном порядке(число вроде).
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.
- 09.11.2017 20:05
- Информатика
- remove_red_eye 1922
- thumb_up 22
Ответы и объяснения 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
- 01.01.1970 00:00
- thumb_up 23
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.