?????:
?????????? ?? ????? ???? ??????? ?????

????????? ?? ????? ???????:
var
n:integer;
begin
write('Type integer: ');
readln(n);
if n<0 then
n:=-n; // ??????????? ????? ?????
repeat
writeln(n mod 10); // ????? ????????? ????? ?????
n:= n div 10; // ???????? ????????? ????? ?????
until n=0;
readln
end.
??????? ?????? ???????? ????????? ?????
???????? ???????????
???????????
??, 12/07/2011 - 09:28 ? tech
??????? ??????
????? ????? ?????? ? ????????? ???? ?????? ?????? ?????????????? ?????.
var
a, b, sum, n: longint;
begin
readln(n);

a := n mod 10; // ????????? ?????
n := n div 10;
while n > 0 do begin
b := n mod 10;
n := n div 10;
end;

writeln(a+b);
readln;
end.
????? ?????????? ???????:
Program SumPP;
var a: longint;
b: byte;

begin
write('??????? ???????? ?: ');
readln(a);
a := abs (a);
b := a mod 10;
while a >= 10 do a := a div 10;
writeln('????? ?????? ? ????????? ????? ? ????? ', b+a);
end.

Случайные файлы

Файл
ВНИМАНИЕ!.txt
Readme.txt
ReadMe.txt
info.txt
Readme.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.