<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadAllLines('input.txt');
var n:=s[0].ToWords[0].ToInteger;
WriteAllText('output.txt',
s[1].ToWords.Take(n).JoinIntoString(NewLine))
end.
1) 7 - изза начального присвоение m
2) 994. 4 соответствует условию, остальные числа лишь максимизируют число
3)
var
N, d, m: longint;
begin
readln(N);
{m := N mod 10; ошибочная строка}
m:=-1; {N mod 10 - может не удовлетворять условию, 0 - может и удовлетворять условию }
while N > 0 do
begin
d := N mod 10;
if d < 5 then
if d > m then m := d;
N := N div 10;
end;
{if m = 0 then ошибочная строка}
if m = -1 then {если в цикле m так не разу и не поменялась}
writeln('NO')
else writeln(m);
end.
Чтобы узнать о недоработках и ошибках.
Пользователи служат в роли тестировщиков программы
Привет) принимай ответ)
00101010 (2)=0*2^7+0*2^6+1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+0*2^0=0+0+32+0+8+0+2+0=42 (10)