640 * 200 = 128 000 пикселей
ТУРАГЕНТСТВО
id - integer (счетчик, ключ)
название тура - varchar
список стран - varchar
стоимость - float
ВИДЕОТЕКА
id - integer (счетчик, ключ)
название фильма - varchar
оргинальное название - varchar
год выпуска - integer
стоимость - float
АВТОСАЛОН
id - integer (счетчик, ключ)
марка машины - varchar
производитель - varchar
цвет - varchar
год выпуска - integer
стоимость - float
РЕГИОНЫ
id - integer (счетчик, ключ)
название - varchar
главный город - varchar
диапазон индексов - varchar
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrString(5);
var b := a.Select(t -> t.Length).ToArray;
var n := b.Max;
for var i := 0 to 4 do
Writeln(a[i]:n, b[i]:3)
end.
Var s,s1:string; p:byte;
<span>begin readln(s); for p:=length(s) downto 1 do s1:=s1+s[p]; </span>
<span>writeln(s1); end.</span>
Var n,x:integer;
begin
read(n);
if n mod 3 = 0 then
begin
n := n div 3;
for x := 1 to n do
if n mod x = 0 then
write(3*x,' ')
end
else
write('Not found')
end.