Нелид
4 год назад
первое заданиедано целое двузначное число x .выведите число , полученное при перестановке его цифр . значение x ввести с клавиатурывторое заданиедано целое трёхзначное число x . составьте программу вычисления суммы и произвидения цифр трёхзначного числа x . значение x ввести с клавиатуры
ОТВЕТЫ
Evgenij
Oct 24, 2020
1)
var x,y:integer;
begin
readln(x);
y:=(abs(x) mod 10)*10+(abs(x) div 10);
if x<0 then y:=-y;
writeln(y);
end.
Пример:
-25
-52
2)
var x,x1,x2,x3:integer;
begin
readln(x);
x:=abs(x);
x1:=x div 100;
x2:=x div 10 mod 10;
x3:=x mod 10;
writeln('S = ',x1+x2+x3,' P = ',x1*x2*x3);
end.
Пример:
271
S = 10 P = 14
var x,y:integer;
begin
readln(x);
y:=(abs(x) mod 10)*10+(abs(x) div 10);
if x<0 then y:=-y;
writeln(y);
end.
Пример:
-25
-52
2)
var x,x1,x2,x3:integer;
begin
readln(x);
x:=abs(x);
x1:=x div 100;
x2:=x div 10 mod 10;
x3:=x mod 10;
writeln('S = ',x1+x2+x3,' P = ',x1*x2*x3);
end.
Пример:
271
S = 10 P = 14
678
