<span>Волк - полк - пола - поза - коза
<span>Волк-воля-Коля-кола-коза</span></span>
1) Для четверки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 4 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
2) Для семёрки:
program ryazantsev;
var i,n,t,s:integer;
begin
s:=0;
readln(n);
for i:=1 to n do begin
readln(t);
if (t mod 7 <> 0) and (t in [10..99]) then s:=s+t
end;
writeln(s)
end.
Если не правельно,извините,но я думаю что,это сообщение правельльно читается-РОЖДЕНОЕ.Этотвопрос у меня был и это ответ по моему мнению правельный.
Переводим в двоичную:
1 - 0001
2 - 0010
8 - 1000
1 - 0001
Итого: 1001010<span>000</span>001 (два незначащих нуля у первой единицы убрал)
Переводим в восьмеричную:
001 - 1
000 - 0
010 - 2
001 - 1
1(или 001) - 1
Итого: 11201
Ответ: три единицы