Нужна ваше ! определите, что будет напечатано в результате работы следующего фрагмента программы: var k, s: integer; begin s: =0 ; k: =0; while s < 100 do begin s: =s+k; k: =k+4; end; write(k); end.

Будет написано 32 это верно

Уменя тоже комп далеко, поэтому пишу программы прямо на телефоне! ; -) и вот, что получилось (все результаты проверены): program first; type arr = array of integer; var a : arr; i, p, l : integer; f : real; begin writeln('вводите числа (0 - окончание ввода)'); i: =1; l : =0; repeat readln(p); if p=0 then break; setlength(a, i); a[i-1]: =p; i: =i+1; l: =l+1; until p=0; p: =0; for i: =0 to l-1 do p: =p+a[i]; f: =p/l; writeln(f: 5: 2); end. program second; var p, i : integer; begin write('введите количество чисел: '); readln(p); for i: =1 to p do write(7*i, ' '); end. program third; var count, p : integer; begin writeln('вводите числа'); count : =0; repeat readln(p); if p=0 then break; if (p mod 2 = 0) then count: =count+1; until p=0; writeln ('было введено ', count, ' чётных чисел.'); end.

Обозначим p,q,a утверждение что х принадлежит соответствующему отрезку ¬а отрицание а, то есть х не принадлежит а перепишем и исходную формулу p→((q∧¬a) →p)известно что  x→y=¬x∨y (доказывается просто, например через таблицу истинности) тогда: p→(¬(q∧¬a)∨p) раскроем скобку  ¬(q∧¬a) с закона де моргана (стыдно их не знать, если что это такие  же основы как и таблицы истинности) p→(¬q∨¬¬a∨p) = p →(¬q∨a∨p) =  ¬p∨¬q∨a∨p ¬p∨p=1 то есть всегда истинно и 1∨х=х значит  ¬p и p можно убрать остается  ¬q∨a значит х либо принадлежит а либо не принадлежит q для выполнения этого условия необходимо чтобы все значения q принадлежали а, тогда минимальное а совпадает с q ответ а=[40,77]