6+8=14 рисунков - всего рисунков у Кати
14-5=9 рисунков- Осталось
Ответ:в альбоме осталось 9 рисунков
Var
i,k,m:integer;
n:longint;
begin
Write('Введите количество чисел: '); Read(k);
m:=0;
Writeln('Вводите числа');
for i:=1 to k do
begin
Read(n);
if n mod 6 = 0 then inc(m)
end;
Writeln('Количество чисел, кратных 6, равно ',m)
end
<em><u>Тестовое решение:</u></em>
Введите количество чисел: 4
Вводите числа
3 18 26 24
Количество чисел, кратных 6, равно 2
Var a: array [1..20] of integer; i,s1,s2:integer;
Используя закон Де-Моргана и двойного дополнения получаем
-(-Av-B)^C = --(A^B)^C = A^B^C
Жаль редактор формул не поддерживает работу с множествами.