Пожалуйста, решите, второй раз отправляю, дам 90 балов. Сделайте программу, не копированную.
Pascal, команды div и mod.
Дано четырехзначное число. Вывести последовательно на экран сумму его цифр, произведение его цифр, «число-перевертыш».
Pascal, команды div и mod.
Дано четырехзначное число. Вывести последовательно на экран сумму его цифр, произведение его цифр, «число-перевертыш».
More Questions From This User See All
Answers & Comments
Ответ:
program z;
var a: integer;
begin
read(a);
writeln(a div 1000 + a div 100 mod 10 + a mod 100 div 10 + a mod 10);
writeln((a div 1000) * (a div 100 mod 10) * (a mod 100 div 10) * (a mod 10));
writeln(a mod 10,a mod 100 div 10,a div 100 mod 10,a div 1000)
end.
Объяснение:
работает только с четырехзначными числами
если число заканчивается на 0, то «число-перевертыш» начнётся с 0
var A, a1, a2, a3, a4, s, m, g: integer;
Begin
Writeln('Задайте 4-х значное число');
Readln (A);
a1:=A div 1000;
a2:=A div 100 mod 10;
a3:=A mod 100 div 10;
a4:=A mod 10;
s:=a1+a2+a3+a4;
m:=a1*a2*a3*a4;
Writeln ('Выведите число ',A, '=', s);
Writeln ('Выведите число ',A, '=' ,m);
Writeln ('Выведите число ',A, '=', a4,a3,a2,a1);
End.