Такс задача!?) Шучу... там надо закачать сначало анти вирус протереть диски и закачать
Числа 1616 нет в задании.
Мой ответ тоже 3. Описанный автомат может выдать числа 1515 (787), 159 (963 или 690 или 781 или 872), 115 (923 или 832).
Var
a,b,i,c: integer;
Begin
Write('Введите А ');
Readln(a);
Write('Введите B ');
Readln(b);
for i:= 1 to (b-a+1) do Begin
c:=c+a*a;
a:=a+1;
End;
End.
<span>const N=30;
var
a: array [1..N] of integer;
i, j, min, min2, s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do bein
for j:=1 to N do begin
if (a[min]-a[mim2] < a[i]-a[j]) then bein
min1 = i;
min2 = j;
end;
end;
end;
Если я конечно правильно задание понял)</span>