У нас раньше были такие ребусы )) Вроде ответ должен быть Принтер
PORT TTTO TTOO OOPO PTON ONNO
Начинаем вычеркивать цепочки, которые не удовлетворяют требованиям.
1. В конце цепочки P, N, T, O - для всех правда.
PORT TTTO TTOO OOPO PTON ONNO
2. На первом месте P, R, T, O - для всех правда.
PORT TTTO TTOO OOPO PTON ONNO
3. На первом и третьем местах разные буквы - не подходит TTTO.
PORT TTOO OOPO PTON ONNO
4. На третьем месте O, P, T - не подходят PORT, ONNO.
TTOO OOPO PTON
5. Третья и четвертая бусины разные - не подходит TTOO.
OOPO PTON
Ответ. 4, 5.
Program n1;
var a,max: integer;
f: text;
begin
assign(f,'input.txt');
reset(f);
max:=0;
while not eof(f) do
begin
read(f,a);
if (abs(a)>max) and (a<0) and (a mod 2 <>0) then max:=a;
end;
close(f);
assign(f,'output.txt');
rewrite(f);
write(f,max);
close(f);
end.
Var
i:integer;
Begin
Write('Числа, сумма цифр которого делится на 7, и само число делится на 7 ');
for i:= 100 to 999 do
if (((i mod 10 + i div 10 mod 10 + i div 100) mod 7) = 0) and ((i mod 7) = 0) then write(i,' ');
End.