Дано трехзначное число вывести число полученное при перестановке цифр сотен и десятков...

0 голосов
238 просмотров

Дано трехзначное число вывести число полученное при перестановке цифр сотен и десятков исходного числа


Информатика (151 баллов) | 238 просмотров
0

Что за язык программирования?

Дан 1 ответ
0 голосов

Вот код программы:
Program Integer15;
var x,a,b,c,p:integer;
begin
writeIn('Введите число а');
readIn(x);
a:=x div 100;
b:=(x div 10)mod 10;
c:=x mod 10;
p:=b*100+a*10+c;
WriteIn ('Перестановленное местами =',p);
end.

(139 баллов)