11011 00100 01100 00001 11111
В О Р О Н
ответ ВОРОН
Ответ:
1) 1 Тбайт
2) 0,5 Мбайт
3)500 Кбайт
4)1600 байт
Var n,S,k:integer;
Begin
Write('n = ');ReadLn(n);
S:=0;
k:=0;
While n > 0 do
Begin
S:=S+n mod 10;
k:=k+1;
n:=n div 10
End;
WriteLn(k/S);
End.
Те, в которых не используется абсолютная адресация по отношению как к номеру столбца, так и номеру строки.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
if ReadSeqIntegerWhile(t->t<>0).Any(t->(t<100) or (t>999)) then
Writeln('No')
else Writeln('Yes')
end.
<u>Пример</u>
35 717 405 225 0
No