Var
A:byte;
Begin
A:=random(151)+5;
if (25 < A)and(A < 100) then WriteLn('Число ',A,' содержится в интервале (25,100)')
else WriteLn('Число ',A,' не содержится в интервале (25,100)')
End.
·²²²²²²²²
где предложение??????????????
#1
алг
нач
нц пока не слева свободно
закрасить
вниз
кц
вверх
нц пока справа свободно
вправо
закрасить
кц
нц пока не справа свободно
закрасить
вверх
кц
вниз
кон
1) 15,6 Мб переводим в гигабайты:
15,6 ÷ 1024 = ~0,015 Гб
2) Находим заполненное:
1,24 + 1,27 + 0,015 = 2,525 Гб
3) Пропорция, чтобы найти количество заполненного в процентах:
16 / 100 = 2,525 / х
Оисюда получаем х = 15,8 %
4) Свободное:
100 - 15,8 = 84,2 %
Program Program1;
var
i,n,y:integer;
begin
write('Введите значение n: ');
readln(n);
i:=2;
y:=1;
while i<=2*n do
begin
y:=y*i;
inc(i,2);
end;
writeln('y=',y);
end.