1. Для улучшения изображения был разработан графический фильтр, уменьшающий значение всех цветовых компонент - id1597646820200812 от 123456532 12.08.2020 20:22

Question

Информатика: 1. Для улучшения изображения был разработан графический фильтр, уменьшающий значение всех цветовых компонент каждого пикселя (в нотации КСВ) на 30%. Что может произойти с изображением после применения данного фильтра? А. Изображение станет более светлым. В. Изображение станет более тёмным. C. Ширина изображения увеличится на 20%. Г. Высота изображения увеличится на 20%.

123456532 · Accepted Answer

Var N, k, digit, prod: longint;
begin
readln(N);
prod := 1; // Произведение не должно быть равно 0, в вашем случае просто отделают последнюю цифру, не проверяя ее кратна она 3 или нет
k := 0;
while (N > 0) do
begin
digit := N mod 10;
if (digit mod 3 = 0) and (digit<>0) then begin // (digit<>0) проверка на неравенство нулю(любое число*0=0)
prod := prod*digit;
k := k+1;
end;
N := N div 10;
end;
if (k = 0)
then writeln('NO')
else writeln(prod) // Выводить нужно не конечное N, а именно произведение(prod)
end.

MOGZ ответил