Pascalabc 1) записать в файл последовательность из 19 чисел в диапазоне [-15; 55]. найти минимальный элемент среди четных элементов, записанных в файле. 2)дан текстовый файл, в котором написана последовательность латинских слов, между словами пробел. определить количество слов заканчивающихся на букву "a".

Ачто надо делать? : d

1. program z1; var a,b,c,x1, x2: real; begin writeln('введите коэффициенты а (отличное от нуля), в и с '); readln(a,b,c); if sqrt(b*b-4*a*c)> 0 then begin x1: =(-b+sqrt(b*b-4*a*c))/2/a; x2: =(-b-sqrt(b*b-4*a*c))/2/a; writeln('x1=',x1,', x2=',x2); end else if sqrt(b*b-4*a*c)=0 then begin x1: =(-b+sqrt(b*b-4*a*c))/2/a; writeln('x=',x1) end else writeln('уравнение не имеет корней'); end. 2. program z1; var b,c,x: real; begin writeln('введите коэффициенты b (отличное от нуля) и с  '); readln(b,c); x: =-c/b; writeln('x< ',x); end.

(не (x > = 6) и не (x = 5)) или (x < = 7)   преобразуем выражение(( x< 6)   и   (x< > 5))   или  (x < = 7)            логическое сложение                                                                истинно когда хотя бы одна скобка                                                                           выполняется  подставляем ответы в это выражение 5, 6, 7 дает истину ( достаточно подставить во вторую скобку x < = 7 ) 8 - в первой скобке даст ложь ( x< 6) и во второй (x < = 7) в итоге получается ложное выражение точно также и для 9 ответ   4, 5 вариант ответа числа 8 и 9