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

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

Question

Информатика

Ксенья

26 августа, 01:31

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

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

+5

Ответы (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

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