ТУРАГЕНТСТВО
id - integer (счетчик, ключ)
название тура - varchar
список стран - varchar
стоимость - float
ВИДЕОТЕКА
id - integer (счетчик, ключ)
название фильма - varchar
оргинальное название - varchar
год выпуска - integer
стоимость - float
АВТОСАЛОН
id - integer (счетчик, ключ)
марка машины - varchar
производитель - varchar
цвет - varchar
год выпуска - integer
стоимость - float
РЕГИОНЫ
id - integer (счетчик, ключ)
название - varchar
главный город - varchar
диапазон индексов - varchar
===== PascalABC.NET =====
begin
for var x := 0 to 180 do
Writeln(x:3, Sin(DegToRad(x)):20:15)
end.
Var a : Integer;
s : Set of Byte;
Begin
s:=[];
Readln(a);
Repeat
If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
a:=a div 10;
Until a=0;
Writeln;
end.