V = 1250 Кбайт =1024*8*1250 = 10240000 бит
t = 40 c
скорость v = V/t = 10240000 бит/ 40 c= 256000 бит/с = 31,25 Кбайт /с
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
<h3>А еще это можно решить, к примеру, так:</h3>
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
Var
n,i:Integer;
begin
for i:=-5 to 5 do
WriteLn(3*i+2);
end.
12>10,но 12<12 неверно, значит
n:=12-1
что равно 11
0,098 килобайт получается