1)
Var i:integer;
Begin
for i := 100 to 999 do
if (i mod 15 = 11) and (i mod 11 = 9)
then writeln(i);
End.
2)
Var i,n,s:integer;
Begin
read (n);
s := 1;
for i := 1 to n do
s := s * i;
write(s);
End.
3)
Var i,j,k:integer;
Begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
End.
N=2^i
9=2^i
Если взять 2^3, будет 8. 8 меньше 9, значит берем следующую степень за 3
Ответ: 4
Var i,s:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(100);
write(a[i]:5);
s:=s+a[i];
end;
writeln;
writeln('Summa: ',s);
end.
Потому что в то время знать письменность и чтение было очень важно и не каждый этому учился,поэтому его считают мудрецом
Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.