Определим как горка целое положительное трёхзначное число x для которого выполняется следующие условия сумма первой и последней цифры равна средней цифре язык qbasic
Получим 45 трехзначных чисел CLS N = 1 FOR i = 1 TO 9 FOR j = 0 TO 9 FOR k = 0 TO 9 IF i + k = j THEN PRINT N; i * 100 + j * 10 + k N = N + 1 END IF NEXT k NEXT j NEXT i Программа выдает 45 таких чисел
Var n,m,osn: integer; function nmbdec(var n,osn: integer): integer; var nmb,l,s,k: integer; begin nmb:=0; s:=0; k:=n; l:=1; while k>0 do begin s:=k mod 10; k:=k div 10; nmb:=nmb+l*s; l:=l*osn; end; Result:=nmb; end; { конец функции} begin write('число: '); readln(n); write('квадрат какого числа: '); readln(m); osn:=10; while osn>=2 do begin osn:=osn-1; if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then begin writeln('основание системы = ',osn); break; end; end; end.
CLS
N = 1
FOR i = 1 TO 9
FOR j = 0 TO 9
FOR k = 0 TO 9
IF i + k = j THEN
PRINT N; i * 100 + j * 10 + k N = N + 1
END IF
NEXT k
NEXT j
NEXT i
Программа выдает 45 таких чисел