Program n_1;
var K :integer; A, B: real;
begin
read (A, B);
K:=0;
if a>=0 then K:=K+1;
if b>=0 then K:=K+1;
writeln(K);
end.
35 документов
Объяснение:
Из запроса "Классификация || Кластеризация" мы получили общую сумму документов со словом "Классификация" = 100 + документы со словом "Кластеризация" = 200, итого 300 документов. Из этого можем сделать вывод, что ни в одном документе не встречаются сразу оба слова "классификация" и "кластеризация".
Следовательно, в нашем искомом запросе часть "Классификация & Кластеризация" обращается в ноль.
А что касается части "Классификация & Регрессия?
Из запроса "Регрессия & (Классификация || Кластеризация) видим, что есть 50 документов, удовлетворяющих условию, где есть как документы с Кластеризацией, так и с Классификацией. Но из них 15 документов, в которых встречаются слова Кластеризация и Регрессия вместе. Такие документы нам не подходят, отнимем их от 50 и получим 35.
program z1;
var k,a,b: real;
begin
writeln('Введите число А');
readln(a);
writeln('Введите число В');
readln(b);
k:=0;
if a>=0 then k:=k+1;
if b>=0 then k:=k+1;
writeln('k равно ',k);
readln;
end.