program TabulW;
var
a, b, c, x, dx, w: real;
begin
a := 2.8;
b := -0.3;
c := 4.0;
x := 1.0;
dx := 0.05;
Writeln(' a b c x w');
while x - 2 < 0.0001 do
begin
if x < 1.2 then
w := a * x * x + b * x + c
else if x > 1.2 then
w := (a + b * x) / sqrt(x * x + 1)
else
w := a / x + sqrt(x * x + 1);
Writeln(a:6:3, b:8:3, c:8:3, x:8:3, w:8:3);
x += dx
end;
Readln;
end.
128=2 в 7 степени, т.е. информация от 1 томе = 7 битам
Ответ: 7 бит, т.к. не важно, какой том, любой из них = 7 бит
По идее ок)
program prim;
var a:array [1..3] of integer;
i:integer;
c:integer;
begin
write('Введите 3 числа: ');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i] > c then c:=a[i];
if (c mod 3=0) then
writeln(c, ' кратно 3')
else
writeln(c, ' не кратно 3');
end.
Ответ:
50 килобайт
Объяснение:
Дано:
Стр. - 8
Строк-40
Символов-80
i= 2 байта=16 бит
Найти:I
Решение:
I=k*i
k=8*40*80=25600 символов
I=25600*16=409600 бит=51200 байт=50 килобайт
А фото где? Я же откуда знаю какая самостоятельная?