Uses crt;
var summa, raz,st,storona1,storona2:real;
begin
ClrScr;
writeln("Введите сумму двух чисел");
readln(summa);
writeln("Введите во сколько раз одно больше другого");
readln(raz);
st:=summa/(raz+1);
storona1:=st;
storona2:=st*raz;
write("1 число-", storona1:7:2,"ед.");
1 мегабайт = 1024 * 1024 * 8 = 8 388 608 бит
Количество информации (I) = 8 388 608 * 1 / 152 = 55 188 бит
Количество информации на один символ (i) = 55 188 / 2048 = 27 бит
Мощность алфавита = 2 ^ 27 = 134 217 728
В некоторых случаях ответы округленные, может быть Вы опечатались и хотели написать 512. Тогда так:
Количество информации (I) = 8 388 608 * 1 / 512 = 16 384 бит
Количество информации на один символ (i) = 16 384 / 2048 = 8 бит
Мощность алфавита = 2 ^ 8 = 256
В этом случае все ответы нормальные, неокругленные
Дуже просто 5+6-7+10=14 грибів . А блок схема :
малюєш овал в ньому пиши початок, далі прямокутник, а в ньому 5, далі знов прямок, а вньому +6 і т.д
Program abc;
uses crt;
var
a,b,c:integer;
begin
writeln ('Введите значение Первого числа (А)');
readln(a);
writeln ('Введите значение Второго числа (B)');
readln(b);
writeln ('Введите значение Третьего числа (C)');
readln(c);
If (a > b) and (b > c) then
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: True');
end
else
begin
writeln ('Числа А, В, С отсортированы в порядке убывания: False');
end;
end.<span>
</span>