Два брата - петя и вася - работают на одном компьютере. однажды на жестком диске "поселился" вирус, который заразил некоторые файлы. по сведениям пети, таких файлов было не более десяти. по сведениям васи - не более одиннадцати. известно, что одно из утверждений истинно, а другое ложно. сколько файлов было заражено? свои рассуждения.

Если петя  прав, то и вася прав (если файлов не больше 10, то тем более не больше  11), чего по условию быть не может. тогда петя не прав, а вася прав. число зараженных файлов  более десяти (отрицание слов пети) и  не более одиннадцати. тогда их ровно одиннадцать.

Var  b: array[1..20] of biginteger;   pr, pr1, raz: biginteger; begin  pr : = 1;   pr1 : = 1;   for var i : = 1 to 20 do  begin    b[i] : = random(100) + 10;     write(b[i]+' ');     if b[i] mod 2 = 0 then        pr : = pr * b[i];     if b[i] mod 2 < > 0 then        pr1 : = pr1 * b[i];     raz : = pr - pr1;   end;   writeln();   writeln('разница равна ', raz); end.

Function rootscount(a,b,c: real): integer; var d: real; begin d: =b*b-4*a*c; if d> 0 then rootscount: =2   else if d=0 then rootscount: =1   else rootscount: =0; end; var a,b,c: real; i: integer; begin for i: =1 to 3 do   begin   writeln(i,') a,b,c: ');   readln(a,b,c);   writeln('количество корней = ',rootscount(a,b,c));   end; end. пример: 1) a,b,c: 1 2 3количество корней = 02) a,b,c: -4 5 6количество корней = 23) a,b,c: -2 8 -8количество корней = 1