Меню сайта

Задача №13

Дано четырехзначное число, найти в нем число тысяч, десятков и единиц.


Program begin_13-

Uses crt-

Var a,b,c,d, x: integer-

Begin

ClrScr-

Writeln(‘введите четырехзначное число’)-

Readln(x)-

a:= x div 1000-

b:=x (div 100) mod 10 —

c := (x mod 100) div 10-

d:=x mod 10-

writeln(a,’ тысяч ‘, b, ‘сотен’, c, ‘десятков’,d,’единиц’)-

Readln-

end.

Категория: Линейные программы | Дата: 03.12.12

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