Program n1;
Uses CRT;
Const n=5;
Var x: array[1..n,1..n] of integer;
a: array[1..n] of integer;
i,p,s,j: integer;
begin
ClrScr;
Randomize;
For i:=1 to n do
For j:=1 to n do
x[i,j]:=random(100);
j:=1;
Repeat
For i:=1 to n do
If a[j]<x[i,j] then a[j]:=x[i,j];
write(a[j]:4);
j:=j+1;
Until j=n+1;
p:=1;
writeln;
For i:=1 to n do
If i mod 2=0 then s:=s+a[i]
else p:=p*a[i];
writeln('Proizvedenie =',p,',Summa =',s);
readln
end.
1. Мощность здесь - это количество символов - 16.
2. Р = 01
А = 100
Д = 00
А = 100
Р = 01
ДАР
3.
C D
CCC DDD
CCD DDC
CDC DCD
DCC CDD
5. N(мощность алфав.)=4 т.к. в этих словах использованы всего 4 буквы
6. 33-я; 2-б; 13-л; 16-о; 15-н; 33-я
Яблоня
var a,b:real;
begin
readln(a,b);
writeln(sqr(a)-5*sqr(b)*b+sqrt(4*a+b));
end.
Нужно сначала налить воду в 5 литривое ведро.
Далее из 5 литрового переливаем в 3-х литровое, в 5 литровом остается 2 литра.
Выливаем воду из 3-х литрового, наливаем в него воду из 5 литрового.
Наливаем воду в 5-ти литровое.
Итого у нас 7 литров. (3-х литровое-2 литра, 5-ти литровое-5 литра)