1)
var
a, b:real;
begin
write('Катет A = ');
readln(a);
write('Катет B = ');
readln(b);
writeln('Гипотенуза = ', sqrt(sqr(a)+sqr(b)));
end.
2)
var
a, b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a=b then writeln('Сумма a и b = ',a+b)
else writeln('Произведение a и b = ',a*b);
end.
3)
var
a, b, c, D, x1, x2: real;
begin
write('Коэффицент A = ');
readln(a);
write('Коэффицент B = ');
readln(b);
write('Коэффицент C = ');
readln(c);
D := sqr(b) - (4 * a * c);
if D > 0 then begin
x1 := (-(sqrt(D)) - b) / (2 * a);
x2 := (sqrt(D) - b) / (2 * a);
writeln('x1 = ', x1);
writeln('x2 = ', x2);
end
else if D = 0 then begin
x1 := -b / 2 * a;
writeln('x = ', x1);
end;
if D < 0 then writeln('Корней нет.');
end.
Найдем сколько нужно памяти на отображение одной страницы
2^3=8
3 байта на один цвет
640*200*3=384000 бит на одну страницу = 48 Кбайт на одну страницу
512/48=10,6
Ответ: 10 страниц одновременно
Правильно. Там же написано TRUE.
a)
16^x бит=2^4x бит
32 Мб= 2^5 Мб=2^28 бит
28=4x
x=7
b)
8^x Кбайт=2^3x Кбайт
16 Гбайт=2^4 Гбайт=2^24 Кбайт
24=3x
x=8