Диагонали экранов телевизоров измеряются в дюймах. Лично для меня эти дюймы это темный лес, совершенно не представляю какого размера экран. Вот что выяснила об этом. Если считать, что в 1 дюйме 2,54 см, то в 24-х дюймах примерно 61 см<span>, в 28-ми дюймах примерно 71 см, а в 32-х соответственно 81,3 см.</span>
const
n=15;
var
a:array [1..n] of integer;
i,min:integer;
begin
randomize;
for i:=1 to n do begin
a[i]:=random(104)-37;
write (a[i],' ');
end;
writeln;
min:=a[1];
for i:=2 to n do
if (odd(a[i])=true) and (a[i]<min) then min:=a[i];
writeln (min);
readln;
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
for var i := 0 to Trunc((95 + 100) / 0.5) do
begin
var z := -100 + 0.5 * i;
var y := Abs(z) < 1.5 ? Abs(z) + z * z : 1 / (Abs(z) + 1);
Writeln(z:6:1, y:20:16)
end
end.
<h2>Результаты (приведены начало и конец)</h2><h3>-100.0 0.0099009900990099</h3><h3> -99.5 0.0099502487562189</h3><h3> -99.0 0.0100000000000000</h3><h3> -98.5 0.0100502512562814</h3><h3> -98.0 0.0101010101010101</h3><h3>. . . . . . .</h3><h3> 93.0 0.0106382978723404</h3><h3> 93.5 0.0105820105820106</h3><h3> 94.0 0.0105263157894737</h3><h3> 94.5 0.0104712041884817</h3><h3> 95.0 0.0104166666666667</h3>
Написано на Pascal
var
a,b,i:integer;
begin
writeln('Введите длины сторон шестиугольника:');
for i:=1 to 6 do begin
write('Длина '+i+' стороны: ');
readln(a);
b:=b+a;
end;
writeln('Периметр равен: '+b);
end.
Пылесосом))))))))))))))))))))))))
