Дано целое четырехзначное число. Если число четное, найти произведение его цифр, иначе перевернуть число, записав его цифры в обратном порядке. Написать программу в Паскале.
Ответы
Ответ дал:
1
Программа:
var n,k1,k2,k3,k4:integer;
begin
write('n = '); readln(n);
k1:=n div 1000;
k2:=n div 100 mod 10;
k3:=n div 10 mod 10;
k4:=n mod 10;
if n mod 2 =0
then writeln('Произведение цифр = ',k1*k2*k3*k4)
else writeln('Число наоборот = ',k4*1000+k3*100+k2*10+k1);
end.
Пример 1:
n = 5324
Произведение цифр = 120
Пример 2:
n = 6387
Число наоборот = 7836
var n,k1,k2,k3,k4:integer;
begin
write('n = '); readln(n);
k1:=n div 1000;
k2:=n div 100 mod 10;
k3:=n div 10 mod 10;
k4:=n mod 10;
if n mod 2 =0
then writeln('Произведение цифр = ',k1*k2*k3*k4)
else writeln('Число наоборот = ',k4*1000+k3*100+k2*10+k1);
end.
Пример 1:
n = 5324
Произведение цифр = 120
Пример 2:
n = 6387
Число наоборот = 7836
Ответ дал:
1
var a,s,q,w,e,r : integer;begin readln(a); q := a mod 10; w := a mod 100 div 10; e := a div 100 mod 10; r := a div 1000; if a mod 2 = 0 then begin s := r * e * w * q; write('Произведение цифр : ', s); end else write('Перевёрнутое число : ',q,w,e,r);end.
Приложения:
![](https://st.uroker.com/files/ad0/ad0b72865a58e2453adfcab32180f21a.png)
vladmor:
Только, если четное, то нужно произведение. А у вас сумма
Вас заинтересует
6 месяцев назад
6 месяцев назад
1 год назад
1 год назад
5 лет назад
5 лет назад
7 лет назад