Дан фрагмент таблицы истинности выражения Каким выражением может быть F?
1) x1/\x2/\¬x3/\x4/\¬x5/\x6
2) ¬x1\/¬x2\/¬x3\/x4\/¬x5\/x6
3) x1/\x2/\x3/\¬x4/\x5/\x6
4) ¬x1\/¬x2\/x3\/¬x4\/¬x5\/x6

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end. 

var s,i,n,a: integer;

begin

  read(a,n);

  s: =1;

  for i : = 1 to n do

      s: =s*a;

  writeln('a в степени n = ',s);

  s: =1;

  for i : = 1 to n do

      s: =s*i;

  writeln(s);

  s: =0;

  for i: = 1 to n do

  begin

    read(a);

    s: = s + a;

  end;

writeln('среднее арифметическое = ',s/n)

end.

есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке  if k> =4 then write(i: 3); уберите знак >   .

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 1 to i do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 2 to (i-1) do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

мне сказали,что 4 секунды

или

4e10 (4 в степени 10) х 2 х 8 ( 1 байт = 8 бит)= 640000000000 бит общий объём текстогого файла в битах.  640000000000 / 512e3( 512 в степени 3= 512 килобит)=1250000 секунд=347,22 часа =14,5 суток