Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>
Суть шифра - заменяем букву на предыдущую по алфавиту английского языка.
Olymp
Nkxlo
Ответ: Nkxlo.
var
A, B, C, i: Integer;
begin
Write ('Введите значение A: ');
ReadLn (A);
Write ('Введите значение B: ');
ReadLn (B);
Write ('Введите значение C: ');
ReadLn (C);
i := 0;
if A mod 2 = 0 then
Inc (i);
if B mod 2 = 0 then
Inc (i);
if C mod 2 = 0 then
Inc (i);
Writeln ('Количество четных чисел = ' + IntToStr (i));
end;
<span>1. *@
2. @~*
3.*~
4.*
5.~
Ответ: 5 различных букв</span>
Рассмотрим крайний случай:
93 +1=94
93 двух видов и 1 - третьего вида. 93=46+47
Может быть выбор 94 конфет трёх видов, когда в мешке только
47 одного вида и по 46 других двух.
у деда в мешке 46+46+47 конфет =139 конфет..