Varn, nine, one: integer;
begin
readln(n);
nine := 0;
one := 0;
while (n > 0) do
begin
if (n mod 10 = 1) then
inc(one)
else
if (n mod 10 = 9) then
inc(nine);n := n div 10;
end;
if (one = nine) then
writeln('Равны')
else
if (one > nine) then
writeln('Единиц больше')
else
writeln('Девяток больше');
<span>end.</span>
Var
A,B,C:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A>B then
Begin
if A>C then A:=A/3
else C:=C/3;
if B<C then B:=B*3
else C:=C*3
End
else
Begin
if B>C then B:=B/3
else C:=C/3;
if A<C then A:=A*3
else C:=C*3
End;
WriteLn;
WriteLn('A = ',A);
WriteLn('B = ',B);
WriteLn('C = ',C);
End.
2) 500 Кбайт / 2500 байт =500*1024 байт / 2500 байт =204.8
Ответ 204 (страницы)
3) 1.44 Мбайт / (60*55* 8 бит)= 1.44 *1024*1024 * 8 бит / (60*55*8) =457.6 =456 страниц
4) I =8 бит * 50*60*55=1320000 бит =165000 байт =161.1 Кбайт
5) 8 букв значит 8 байт (одна буква имеет 8 бит=1 байт)
<span>m = 13;
n = 21;
n = 2*m-n = 2*13-21 = 26-21 = 5;
m< =n = 13 <= 5 = false </span>⇒<span> p = 4-m*n = 4-13*5 = -61
var n,m,p:integer;
begin
m:=13;
n:=21;
n:=2*m-n;
if m<=n then
p:=m+n
else
p:=4-m*n;
writeln(p);
end.
Результат:
-61</span>
Сначала разобьем число надвое получим 13 и 11, т.к. числа записываются в порядке убывания, то не имеет значение какое число вычислять сначала итак:
разбиваем числа 13 и 11 на составляющие
4+9=13 5+6=11
5+8=13 4+7=11
6+7=13 3+8=11
2+9=11
Принципиально важно, чтоы наименьшие возможные числа располагались по наивысшим разрядам, значит число получится таким: 2949
Ответ:2949
