Ответ:
10
Объяснение:
Сложные высказывания, содержащие общее отрицание, полезно вначале преобразовывать, используя правило де-Моргана.
НЕ( (x ≥ 12) ИЛИ (x ПРОСТОЕ) )
НЕ(x ≥ 12) И НЕ(x ПРОСТОЕ)
Теперь "НЕ" имеют простые высказывания, выполним их инверсию (отрицание).
(x < 12) И (x НЕ ПРОСТОЕ)
Итак, нужно найти наибольшее число, для которого верно (истинно) полученное высказывание. Поскольку число меньше 12, будем рассматривать ряд чисел 11, 10, 9, ... и выберем первое встретившееся число, не являющееся простым. 11 - простое, а вот 10 - нет, оно имеет делители 2 и т.д. Поэтому ответ - 10.
1)
var k,a,i,n : integer;
t : Text;
begin
readln (k);
n := 0;
Assign (t,'test.txt');
Reset(t);
i := 1;
while not Eof(t) do
begin
read (t,a);
if a = k then
n := i;
i := i +1;
end;
Close (t);
writeln (n);
<span> end.
2)
var
t,t1,t2 : Text;
i : integer;
a : real;
begin
Assign (t,'text.txt');
Reset (t);
Assign (t1,'r1.txt');
rewrite (t1);
Assign (t2,'r2.txt');
rewrite (t2);
i := 1;
while not Eof(t)
do
begin
read (t,a);
if i mod 2 = 1 then
write (t1,a:3:3,' ')
else
write (t2,a:3:3,' ');
i:= i +1;
end;
Close (t);
Close (t1);
Close (t2);
<span> end.</span>
</span>
Http (hyper text transfer protocol)
Проторкол передачи данных, служащий для передачи html страниц (hyper text markup language)
Uses crt;
var i,ans:integer;
str:string;
begin
ans:=0;
readln(str);
for i:=1 to length(str) do
if (str[i]='.') or (str[i]=',') or (str[i]=';') or (str[i]=':') or (str[i]='?') or (str[i]='!')
then ans:=ans+1;
writeln(ans);
<span>end.</span>
