Var
A,B:integer;
Begin
Write('Введите два числа: ');ReadLn(A,B);
if A<B then Write(A)
else Write(B)
End.
Var a : integer;
begin
repeat
a:=a+100;
writeln(a*0.3, ' руб за ', a, ' гр')
until a = 1000
end.
{ Нужно написать программу, выводящую сумму всех двузначных чисел... Помогите, пожалуйста... }
var
S, i: <em>integer</em>;
begin
for i := 10 to 99 do
s += i;
writeln(s);
<span>end.</span>
1. 0.5 Кбайт = 4096 бит / 128 бит = 32. Ответ: В 32 раза
2. 4 Кбайта = 32768 бит / 4096 = 8 бит на 1 символ, значит 2⁸ = 256. Ответ: 256
3. 2
4. 20 Кбайт = 163840 бит.
2⁸ = 256 - значит на 1 символ 8 бит
32*64*8 = 16384 бит на 1 страницу.
163840 / 16384 = 10.
Ответ: 10 страниц
5. 16⁵ = 128 Кбайт
1674-786= 888 по-моему условие не правильное