Program n1;
var a,b,c,d: real;
begin
readln(a,b,c,d);
if (a*b>c*d) then
begin
a:=a*2;
b:=b*2;
end else begin
c:=c*2;
d:=d*2;
end;
write(a,' ',b,' ',c,' ',d);
end.

0 0

1 год назад

Написать программу поиск 4-х значного числа, которое при делении на 134 дает в остатке 11

Биатлонист

Var i:integer;
begin
for i:=1000 to 9999 do
if i mod 134 = 11 then writeln(i);
end.

Результат (только начало и конец, т.к. чисел много):
1083
1217
1351
...
9659
9793
9927

0 0

4 года назад

.Какова мощность алфавита, с помощью которого записано сообщение, содержащее 2048 символов, если его объем составляет 1/512 част

екатерина889 [17]

Наверно так:
1Мб = 1024Кб ; 1/512 от 1024 = 2Кб*1024 = 2048Байт*8=16384бит
N = 2^i ; M = K*i ; i = M/K ; M = 16384бит ; K = 2048 ;
i = 16384/2048 = 8 бит - обьем одного символа
N = 2^8 = 256

0 0

4 года назад

Напишите наименьшее целое число x, для которого истинно высказывание: НЕ (X <= 8) И НЕ (X >= 15) И (X чётное).

Sirk

НЕ (X <= 8), то есть, X >= 8.

НЕ (x >= 15), то есть, X <= 15.

X четное.

Между выражениями стоит "И", значит, должны выполняться все условия.

X >= 8 И X <= 15 и X четное.

Ответ: 8.

0 0

4 года назад

Прочитать ещё 2 ответа