Var i,j,s,k:integer; begin s:=0; k:=0; for i:=1 to 9 do for j:=0 to 9 do begin s:=s+i*100+j*10+i; k:=k+1; end; writeln('s = ',s,' k = ',k,' sred = ',s/k:6:2); end.
Результат: s = 49500 k = 90 sred = 550.00
Если нужно приложение с формой, то: помещаете на форме командную кнопку (Button) и статичный текст (StaticText). В обработчик кнопки добавляете код: procedure TForm1.Button1Click(Sender: TObject); var i,j,s,k:integer; s:string; begin s:=0; k:=0; for i:=1 to 9 do for j:=0 to 9 do begin s:=s+i*100+j*10+i; k:=k+1; end; s:='s = '+IntToStr(s)+' k = '+IntToStr(k)+' sred = '+FloatToStr(s/k); StaticText1.Caption := s; end;
a = [[i] for i in range(10)]
for i in enumerate(a):
for j in range(1,10):
if i[0] == 0:
a[i[0]].append(j)
else:
a[i[0]].append(j*i[1][0])
for i in a:
for j in i:
print('{:3d}'.format(j), end='')
print()
print('------------------------------------')
while True:
x = int(input('Введите x: '))
y = int(input('Введите y: '))
print('Результат на основе таблицы умножения равен: ', str(a[x][y]))
z = input('Повторить? (y/n): ')
if z != 'y':
print('До встречи!')
break