Меню сайта

Задача №10
Ввести трехзначное число a. Поменять крайние цифры числа местами.
Program prim_10-
Var a,b,c:integer-
Begin
— — Write(‘введите трехзначное число а — — -‘)-
— — Readln(a)-
— — b:= a div 100-
— — c:= (a div 10) mod 10-
— — d:=a mod 10-
— — a:=c*10+b-
— — Writeln(a)-
— — Readln
End.
Категория: Линейные программы | Дата: 04.12.12

Меню раздела
Блок