1
учим мат. часть тут
http://www.webmath.ru/poleznoe/tables_istinnosti.php
Program srednee;
var
a, b, c:integer;
sa:real;
begin
write ('Введите а='); readln (a);
write ('Введите b='); readln (b);
write ('Введите c='); readln (c);
if (a mod 5 = 0) and (b mod 5 <> 0) and (c mod 5 = 0) then
begin
a:= sqr(a); writeln ('Квадрат а=', a);
b:= sqr(b); writeln ('Квадрат b=', b);
c:= sqr(c); writeln ('Квадрат c=', c);
end else begin
if (a mod 5 <> 0) and (b mod 5 = 0) and (c mod 5 <> 0) then
begin
a:= a+10; writeln ('а+10=', a);
b:= b+10; writeln ('b+10=', b);
c:= c+10; writeln ('c+10=', c);
end else begin
sa:=(a+b+c)/3;
write ('Среднее арифметическое =', sa);
end
end
end.
Ответ:
Что то типа того, попробовал проверять, вроде работает
Объяснение:
program example;
var
d,c,a,h:real;
b : real;
function Calculate(d,c,a,h: real): real;
var
Notation: real;
begin
Notation := c + abs(cos(a*h*h)-sin(a*h));
Calculate := d - sqrt(c/Notation);
end;
begin
readln(d,c,a,h);
b := Calculate(d,c,a,h);
write(b);
end.
Смотря на скрин ниже, видим, что запрос Г - самый релевантный, а запрос Б - наоборот. Следуя правилу "Чем больше ИЛИ, тем больше результатов" и "Чем больше И, тем меньше результатов", получаем, что запрос А имеет больше результатов, чем В.
Ответ: БВАГ.