Всі, крім двох - персики
всі, крім двох - груші
всі, крім двох - яблука.
отже 2 яблука+ 2 персика+2 груші = 6 фруктів
Вот сайт переводит все и с решением
Var
A,b,c:integer;
Begin
b:=-1;
c:=0;
Repeat
ReadLn(A);
b:=b+1;
if (A mod 2 <> 0)and(A mod 3 = 0) then c:=c+1
Until A = 0;
WriteLn('Длина последовательности: ',b);
WriteLn('Кол-ко нечётных чисел, кратных трём: ',c);
End.
Дано
K= 100 стр
L= 60 строк
N=80 символов
Z= 1 байт
Q - ? Мбайт
Решение
ИНформационная емкость книги составит 100*60*80*1=480000 байт = 0,48 Мб