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

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

Question

Информатика

Эвелинка

26 ноября, 00:15

Язык программирования 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

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