30 см, зависит ещё от диагонали монитора!!!
Нарисовал, после да надо опять уйти на првоерку
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadReal2('Введите два числа:');
if a>b then Writeln('Первое число больше')
else
if b>a then Writeln('Второе число больше')
else Writeln('Числа равны')
end.
<u>Пример</u>
Введите два числа: 25 24.95
Первое число больше
var
i, e: Integer;
s : Real;
LL : array [0..11] of Real;
LL2 : array of Real;
begin
for i:= 0 to 11 do
LL[i] := Random(101) - 100;
i := 0;
e := 0;
while i <= 11 do
begin
if LL[i] <> 0 then
begin
inc(e);
SetLength(LL2, e);
LL2[e-1] := LL[i];
s := s + LL[i];
end;
inc(i);
end;
Writeln('Кол-во ненулевых элементов = ', e);
if s < 0 then s := s * -1;
Writeln('Mодуль сумы элементов нового массива = ', s:0:3, #10#13);
for i := 0 to e - 1 do
Write(LL2[i]:0:1, ' ');
ReadLn;
end.
(C>8) или ((C>-6)и(C<2))
Ответы
1)-5
2)9