<span>первые 20 чисел в шестнадцатеричной системе счисления
</span><span><span>[16]
</span><span>
0
</span><span>
1
</span><span>
2
</span><span>
3
</span><span>
4
</span><span>
5
</span><span>
6
</span><span>
7
</span><span>
8
</span><span>
9
</span><span>
A
</span><span>
B
</span><span>
C
</span><span>
D
</span><span>
E
</span><span>
F
</span><span>
10
</span><span>
11
</span><span>
12
</span><span>
13
</span><span>
14
</span></span><span><span><span /></span></span>
Вот :
var y,x:integer;
begin
writeln('Введите x');
read(x);
y:=x*x;
writeln;
write('Значение функции равно: ');
write(y);
end.
Код PascalABC.NET 3.2:
Var S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
LowerCase(S);
k:=0;
For i:= 1 to S.Length-2 do
if S[i] = 'д' then
if S[i+1] = 'о' then
if S[i+2] = 'м' then
k:=k+1;
WriteLn(k)
End.
Var
S:string;
i,d1,d2,d3:integer;
Begin
WriteLn('Введите строку:');
ReadLn(S);
i:=0;
Repeat
i+=1
Until S[i] = ' ';
d1:=i-1;
Repeat
i+=1
Until S[i] = ' ';
d2:=i-d1-2;
Repeat
i+=1
Until i = S.Length;
d3:=i-d2-d1-2;
if d3 < d1 then d1:=d3;
if d2 < d1 then d1:=d2;
WriteLn(d1)
End.
Решение смотрите во вложении