НАДЕЮСЬ СМОГ ОБЪЯСНИТЬ ;)
Объяснение:
Круги Эйлера это удобный представления информации с множествами чисел и их общими частями, с данных кругов можно решать многие задачи.
Алгоритм решения задач:
1) понять условие задачи и обозначить множества в виде кругов
2) понять что нужно найти
3) решить задание
Рассмотрим на примере задачи (условие во вложении)
Найти: количество страниц по запросу "рыбка"
нарисуем два множества: "рыбак" и "рыбка" (смотреть вложения)
множество "рыбак" – A
множество "рыбка" – B
По условию задачи:
• Рыбак | рыбка = A + B - C = 780
• Рыбак = A = 260
• Рыбак & рыбка = C = 50
из множества "Рыбак | Рыбка" выведем множество "рыбка"
B = 780 - A + C
B = 780 - 260 + 50 = 570
ответ: 570 запросов
1)
var
A,s: integer;
begin
writeln ('Ведите А: ');
readln(A);
if A>30000 then
begin
writeln ('Ошибка. А больше 30000');
end
else
begin
s := 0;
while a > 0 do
begin
s := s + A mod 10;
A := A div 10;
end;
writeln(s);
end;
end.
2)
var
C,index,i: integer;
begin
writeln ('Ведите C: ');
readln(C);
if C>30000 then
begin
writeln ('Ошибка. C больше 30000');
end
else
begin
for i:=0 to C do begin
if(i mod 2) = 0 then
else begin
index:=index+1;
end
end
end;
writeln (index);
end.
