Заменяет в строке
var
s : string;
i, lim : integer;
begin
readln (s);
i := 1;
lim := length (s);
while (i <= lim) do
begin
if s[i] in ['1'..'9'] then
begin
if (s[i] = '1') and (i <> length (s)) and (s[i+1] ='0') then
begin
write ('ten');
inc (i);
end
else
case s[i] of
'1' : write ('one');
'2' : write ('two');
'3' : write ('three');
'4' : write ('four');
'5' : write ('five');
'6' : write ('six');
'7' : write ('seven');
'8' : write ('eight');
'9' : write ('nine');
end;
end
else write (s[i]);
inc (i);
end;
end.<span>
</span>
11111110
16ричная и 8ричная системы счисления удобны для перевода в двоичную, т.к. в них каждую цифру можно заменить на определенную последовательность из 1 и 0
в 8ричной группы по 3 знака, в 16ричной по 4. собственно таблица
0 - 0000
1 - 0001
2 - 0010
3 - 0011
4 - 0100
5 - 0101
6 - 0110
7 - 0111
8 - 1000
9 - 1001
A - 1010
B - 1011
C - 1100
D - 1101
E - 1110
F - 1111
таким образом
FE
F E
1111 1110
program p1;
uses crt; выводит окошко, где будет результат
var i,s:integer;
begin
s:=0;
for i:=10 to 99 do begin
s:=s+i;
end;
write(s);
end.
Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
Ввод с клавы:
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.