<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadlnString.ToWords;
a.Where(t->(t<>a[0]) and (t.Length<>t.Distinct.Count)).Println
end.
<u>Пример</u>
vanitas vanitatum et omnia vanitas
vanitatum
Ответ:
1.
var a:array [1..20] of integer;
i,m:integer;
begin
for i:=1 to 20 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
write('Массив ');
m:=a[1];
for i:=1 to 20 do
begin
write (a[i], ' ');
if a[i]<m then m:=a[i]
end;
writeln;
writeln ('Наименьший элемент ',m)
end.
2.
var a:array [1..10] of integer;
i,mi:integer;
begin
write('Массив ');
for i:=1 to 10 do
begin
a[i]:=random(46)-20;
write (a[i], ' ')
end;
writeln;
mi:=1;
for i:=2 to 10 do
if a[i]<a[mi] then mi:=i;
writeln ('Номер наименьшего элемента ',mi)
end.
S= aв
это формула нахождения S прямоугольника
1125 байт = 1125*8 бит
Объем одного символа = 1125*8 / (15*20) = 30 бит
Количество символов в алфавите = 2^30 = 1024^3 = 1 073 741 824
<span>var
y,x,b:real;
begin
writeln('У');
read(x,b);
y:=4*x/12*b+10;
</span>writeln('У=',y);
end.