Begin
writeln('55555');
<span>writeln('4444');
</span><span>writeln('333');
</span><span>writeln('22');</span>
end.
import random as r
array_ask=[["ты жив?","yes"],["5+5","10"],["5+10","15"]]
for i in range(len(array_ask)):
n=r.randint(0,len(array_ask)-1)
x=input(array_ask[n][0])
if x==array_ask[n][1]:
print(True)
else:
print (False)
<span>1)
var n,i:integer;
begin
readln(n);
for i:=1 to n do
if n mod i = 0 then write(i,' ');
readln;
end<span>.</span></span>
<em>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadlnInteger;
ReadSeqInteger(n).JoinIntoString('').
Where(c->c in ['2','4','6','8']).Select(c->c.ToDigit).Sum.Println
end.
<u>Пример</u>
13
4492 13638 -4490 4186 13985 -4266 5805 -26574 28710 -378 17920 1886 -24200
146
В типовой кодировке UNICODE каждый символ кодируется двумя байтами. За 1 секунду передается 128 символов, что соответствует объёму 128×2=256 байт.
В 12 минутах 12×60=720 секунд
За это время будет передан объем 256×720=184 320 байт.
Переведем это значение в килобайты: 184 320 / 1024 = 180 (Кбайт)
Ответ: 180 Кбайт