Язык программирования Pascal
Поменять местами цифры любого трехзначного числа и вывести их на экран
Ответы
Ответ дал:
0
program wk;
var x,a,b,c:integer;
begin
Readln(x);
A:=x mod 10;
b:=x div 100;
c:=(x div 10)mod 10;
x:=a*100+b*10+c;
Writeln(x);
Writeln(a,' ',b,' ',c);
end.
var x,a,b,c:integer;
begin
Readln(x);
A:=x mod 10;
b:=x div 100;
c:=(x div 10)mod 10;
x:=a*100+b*10+c;
Writeln(x);
Writeln(a,' ',b,' ',c);
end.
Вас заинтересует
8 лет назад
8 лет назад