Var
a : array ['a'..'z'] of integer;
c : char;
begin
for c := 'a' to 'z' do
a[c] := 0;
read(c);
while c <> '.' do
begin
if (c >= 'a') and (c <= 'z') then
a[c] := a[c] + 1;
read(c)
end;
for c := 'a' to 'z' do
if a[c] <> 0 then
writeln(c,a[c])
<span>end.</span>
Пусть основание системы счисления x, тогда маме (x + 4) года, папе (2x + 6) лет, а вместе им (4x + 2) года.
4x + 2 = (x + 4) + (2x + 6)
4x + 2 = 3x + 10
4x - 3x = 10 - 2
x = 8
Единственный возможный вариант — 8-ричная система счисления, но в ней нет цифры 9, поэтому сын не мог сказать, что ему 9 лет, а маме в этом случае было бы 8 + 4 = 12 лет, что означало бы, что ребёнок у неё появился в 3 года.
Ответ. Условие противоречиво.
Const
N = 10;
Var
C:array[1..N] of integer;
i,k,Max:integer;
P:real;
Begin
Randomize;
P:=1;
k:=0;
Max:=1;
WriteLn('C(',N,') в столбик:');
For i:= 1 to N do
Begin
C[i]:=random(31)-15;
WriteLn(C[i]:4);
if i mod 2 = 0 then P:=P*C[i];
if C[i] > 0 then k:=k+1;
if Abs(C[i]) > Abs(C[Max]) then Max:=i;
End;
Write('C(',N,') в строку:');
For i:= 1 to N do
Write(C[i]:4);
WriteLn;
WriteLn('P = ',P);
WriteLn('k = ',k);
WriteLn('Max = ',C[Max],'[',Max,']');
ReadLn;
End.
Var s,r,k: string;
j: integer;
begin
write('строка: '); readln(s);
foreach k in s.Split(' ').Distinct do
begin
j:=0;
foreach r in s.Split(' ') do
if r=k then j:=j+1;
writeln('слово ','"',k,'"',' встречается ',j,' раз');
end;
<span>end.
</span>
Это выделение наиболее важных характеристик объекта или предмета изучения