244.375 | 0x1.e8c000p+7
452.156 | 0x1.c42800p+8
Если бы было нужно решение, написал бы.
<span>А. for i:=-5 to 5 do тело цикла; - 11 раз
В. for i:=6 to 2 do тело цикла; - 0 или 1 раз
С.for i:= 3to 3 do тло цикла ; - 1 раз
D. for i:=3 downto 4 do тело цикла - 1 или 0 раз
E. for i := 3 downto 1 do - 3 раза</span>
Компьютерная программа или програмное обеспечение,набор расположенных поэтапно команд, которые позволяют компьютеру выполнить поставленные задачи.
<u>PascalABC.NET 3.4.0, сборка 1670 от 23.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadReal('Введите длину в миллиметрах:');
var b:=ReadReal('Введите длину в дюймах:');
var s:=Sign(a-25.4*b);
case s of
-1:Writeln('Второй отрезок длиннее');
0:Writeln('Отрезки равны');
1:Writeln('Первый отрезок длиннее')
end
end.
Var
i:integer; s,a:real;
Begin
Write('Вводите числа через Enter ');
for i:= 1 to 5 do
Begin
Read(a);
s:=s+a;
End;
Writeln;
write('Среднее арифметическое этих чисел ');
if s/5>6 then write('больше 6 и равняется ',s/5,', поэтому увеличиваю на 3 - ',s/5+3) else write('не больше 6, поэтому оставляю как есть ',s/5);
End.