Язык программирования Pascal

Поменять местами цифры любого трехзначного числа и вывести их на экран

Question

Информатика

Викул

30 сентября, 08:02

Язык программирования Pascal

Поменять местами цифры любого трехзначного числа и вывести их на экран

+2

Ответы (1)

Знаешь ответ?

Алексаха · Answer 1

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.

Язык программирования PascalПоменять местами цифры любого трехзначного числа и вывести их на экран

Язык программирования Pascal

Поменять местами цифры любого трехзначного числа и вывести их на экран