S=> S-Bahn - общественный центр города и пригородная система скоростного транспорта в пределах общественного транспорта и сетей пригородной железной дороги городских районов в Австрии, Германии, Швейцарии, Северной Италии и Дании
U (эмблема)-знак кошерного продукта
i- информация (инфоцентр)
А какие то карточки это логотип
Больше сказать не могу
Запишем уравнение в системе счисления по основанию n:
34(n)+33(n)=100(n)
Представим каждое число в развернутом виде:
3*n+4+3*n+3=1*n²+0*n+0;
Решаем в десятичной системе счисления
3n+4+3n+3=n²; n²-6n-7=0
D=36+28=64; n1=(6-8)/2=-1 (не подходит, основание - натуральное число);
n2=(6+8)/2=7;
<em>Ответ:</em> основание системы счисления равно 7.
1) Вот первая задачка:
uses crt;
var a, b, c : real;
begin
ClrScr;
Write(' a = '); ReadLn(a);
Write(' b = '); ReadLn(b);
c:=sqrt(a*a+ b*b);
WriteLn(' c = ', C:4:2);
ReadLn;
end.
2) А вот задачка 2
uses crt;
var s, s0 : real;
i: integer;
begin
ClrScr;
S0:=3;
i:=1;
While S0<20 do
begin
i:=i+1;
S:=S0*(1+0.05);
S0:=S+S0;
end;
WriteLn(' Day = ', i);
ReadLn;
end.
3) А вот и третья задачка подоспела....
uses Crt;
const n=15;
type Mas = array [1..n] of real;
var A: Mas;
i: integer;
Sum: real;
begin
ClrScr;
Sum:=0;
for i:=1 to n do
begin
Write(' A[',i, '] = ' ) ; ReadLn (A[i]);
Sum:=Sum+A[i];
end;
WriteLn (' Massiv: ');
for i:=1 to n do
Write (A[i]:6:2,' ');
WriteLn; WriteLn;
WriteLn ('Sum = ', Sum:6:2);
ReadLn;
end.
<span>Zotac Geforce GTX 960 2GB GDDR5 Норм видюха :3</span>
const m=10;
var c:array[1..m] of integer;
max,min,i,j: integer;
begin
writeln('Массив:');
for i:=1 to m do
begin
c[i]:=random(50);
write(c[i],' ');
end;
writeln;
max:=c[1];
min:=c[1];
for i:=2 to m do
begin
if c[i]>max then max:=c[i];
if c[i]<min then min:=c[i];
end;
writeln('max = ',max,' min = ',min,' max/min = ',max/min:5:2);
end.
Пример:
Массив:
27 29 35 42 30 42 27 42 21 31
max = 42 min = 21 max/min = 2.00
