Program pos; var n, a, b, c, s, d: integer; begin write('n = '); readln(n); if n < 1000 then begin a := n div 100; b := n mod 100 div 10; c := n mod 10; write('В числе '); if a = 0 then if b = 0 then begin d := 1; writeln('1 цифра'); end else begin d := 2; writeln('2 цифры'); end else begin d := 3; writeln('3 цифры'); end; s := a + b + c; writeln('Сумма цифр: ', s); if n mod 2 = 0 then writeln('Число чётное') else writeln('Число нечётное'); if d = 1 then writeln(c) else if d = 2 then writeln(c, b) else writeln(c, b, a); end else writeln('Число > 1000!'); end.
URI известен под многими именами: WWW адрес, универсальный идентификатор документа (Universal Document Identifiers), универсальный идентификатор ресурса (Universal Resource Identifiers), и, наконец, универсальный локатор ресурса URL (Uniform Resource Locators; тождество URI и URL сомнительно, так как URL является частным случаем URI (примечание переводчика)) и универсальное имя ресурса (URN). Что касается HTTP, универсальный идентификатор ресурса представляет собой форматированную строку символов, которая идентифицирует имя, положение или какие-то еще характеристики ресурса.
var
n, a, b, c, s, d: integer;
begin
write('n = ');
readln(n);
if n < 1000 then
begin
a := n div 100;
b := n mod 100 div 10;
c := n mod 10;
write('В числе ');
if a = 0 then
if b = 0 then
begin
d := 1;
writeln('1 цифра');
end
else
begin
d := 2;
writeln('2 цифры');
end
else
begin
d := 3;
writeln('3 цифры');
end;
s := a + b + c;
writeln('Сумма цифр: ', s);
if n mod 2 = 0 then
writeln('Число чётное')
else
writeln('Число нечётное');
if d = 1 then
writeln(c)
else
if d = 2 then
writeln(c, b)
else
writeln(c, b, a);
end
else
writeln('Число > 1000!');
end.