Var
i,n,s:integer;
begin
s:=0; i:=13; n:=0;
while i<100 do
begin s:=s+i; n:=n+1; i:=i+13 end;
Writeln('Сумма=',s,', количество=',n)
end.
<u><em>Результат выполнения программы:</em></u>
Сумма=364, количество=7
Числа 1616 нет в задании.
Мой ответ тоже 3. Описанный автомат может выдать числа 1515 (787), 159 (963 или 690 или 781 или 872), 115 (923 или 832).
Program abc;
var a,b,c,i,i1:integer;
begin
readln(a,b);
if(a<b) then
for i:=1 to b do
begin
i1:=i+1;
c:=i1+i;
end;
if(a>b) then
for i:=1 to a do
begin
i1:=i+1;
c:=i1+i;
end;
writeln(c);
end.