1800 байт * 8 = 14 400 бит
14 400 бит = 14 400 бит
ответ: за одну секунду
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadSeqIntegerWhile(x->x>0).ToArray;
write('Периметр ', a.Count,'-угольник равен ',a.Sum);
end.
Program test;
uses crt;
var
y,x:integer;
begin
textcolor(11);
writeln('Введите x: ');
readln(x);
if x>2 then begin
y:=x*x;
writeln('Ответ: ', y)
end
else
begin
y:=4;
writeln('Ответ: ', y);
end;
end.
// PascalABC.NET 3.3
begin
var a:=ArrRandom(10,-10,10);
writeln('Исходный:'); a.Println;
writeln('Реверс:');
a.Reverse.Println;
end.
Пример:
Исходный:
-4 10 4 3 0 -7 -1 -3 -4 -1
Реверс:
-1 -4 -3 -1 -7 0 3 4 10 -4