Меню сайта

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

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