Найти количество чисел кратных 3 в последовательности оканчивающихся 0 найти сумму четных чисел не провосходящих число М найти произведение чисел последовательности оканчивающихся кратных 4 и оканчивающихся на 4
Суть в том, что Эйлер развил метод (кое-какие наработки были и до него) когда множество обозначается кругом (или подмножества - в зависимости от условий) или, как вариант, если задача логическая, то кругом обозначают высказывание. В последнем случае то, что отрицает высказывание - это часть плоскости уже за кругом. Наглядно получается и удобно. Но, надо заметить, что дальнейшее развитие эти схемы получили в трудах англичанина Джона Венна, поэтому сейчас их называют диаграммами Эйлера-Венна. На них наглядно можно показать все логические действия с высказываниями. Например, умножение двух или более высказываний. Область пересечений этих высказываний - это и есть результат их умножения. По сложению - результат сложения двух высказываний это вся их область вместе взятая. И так далее. Так с диаграмм можно доказывать логические равенства или неравенства. Сам Эйлер занимался не только математикой, но ещё и физикой, астрономией и механикой. Жил в 18 веке.
var a : array [1..4] of char; i, k, l, m, N : byte; begin a[1] := 'Л'; a[2] := 'Е'; a[3] := 'Т'; a[4] := 'О'; for i := 1 to 3 do begin for k := 1 to 4 do begin for l := 1 to 4 do begin for m := 1 to 4 do begin if i <> 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); N += 1; end; end; end; end; end; writeln('Всего: ', N) end.
var
n, k, s, sa: integer;
begin
k := 0;
s := 0;
sa := 0;
writeln('Введите последовательность, окончание ввода - число 0');
repeat
read(n);
if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;
if (n <> 0) and (n < 100) then inc(k);
sa := sa + n
until n = 0;
readln;
writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);
writeln('Количество чисел, не больших 100, равно ', k);
writeln('Сумма последовательности равна ', sa);
readln
end.
Объяснение: