2) A = True; B = False; C = True
A \/ С /\ (B \/ ¬B → ¬C) = A \/ С /\ (B \/ ¬C) = 1 (True)
3) Вес одного пикселя = 8 бит = 1 байт
(1024 * 768 * 1) / 1024 = 768 Кбайт
2 Мбайт = 2*(2^10) Кбайт = 2*(2^10)*(2^10) байт = (2^(21))*8 бит =
= 2^(24) бит.
Скорость передачи информации = 2^(24)/34 (бит/сек).
Искомый размер файла = [(2^(24))/34]*14 бит =
= (14/34)*2^(21) байт = (7/17)*2^11 Кбайт ≈ 843,3 Кбайт.
Ответ:
Объяснение:
После строки if k=3 then Writeln(f2,x);
нужно поставить k:=0;
Var f1,f2: text;
i, k, x: integer;
Begin
Assign(f1, 'file1.txt');
reset(f1);
Assign(f2, 'file2.txt');
Rewrite(f2);
k:=0;
While not eof(f1) do
Begin
Readln(f1,x);
writeln(x);
for i:=2 to x do
If (x mod i=0) and (i mod 2=0) then inc(k);
if k=3 then Writeln(f2,x);
k:=0;
End;
Close(f1);
Close(f2);
Writeln('Второй файл содержит числа:');
Reset(f2);
While not eof(f2) do
Begin
Readln(f2,x);
Writeln(x);
End;
readln;
Close(f2);