freepascal.ru

Код: Выделить всё

program Project1;
Var
  i: Integer;
begin
  WriteLn('Vvedite chislo');
  ReadLn(i);
  Case i Of
  0: Begin
    WriteLn('0*0=0');
    WriteLn('0*1=0');
    WriteLn('0*2=0');
    WriteLn('0*3=0');
    WriteLn('0*4=0');
    WriteLn('0*5=0');
    WriteLn('0*6=0');
    WriteLn('0*7=0');
    WriteLn('0*8=0');
    WriteLn('0*9=0');
   End;
  1: Begin
    WriteLn('1*0=0');
    WriteLn('1*1=1');
    WriteLn('1*2=2');
    WriteLn('1*3=3');
    WriteLn('1*4=4');
    WriteLn('1*5=5');
    WriteLn('1*6=6');
    WriteLn('1*7=7');
    WriteLn('1*8=8');
    WriteLn('1*9=9');
   End;
  2: Begin
    WriteLn('2*0=0');
    WriteLn('2*1=2');
    WriteLn('2*2=4');
    WriteLn('2*3=6');
    WriteLn('2*4=8');
    WriteLn('2*5=10');
    WriteLn('2*6=12');
    WriteLn('2*7=14');
    WriteLn('2*8=16');
    WriteLn('2*9=18');
   End;
  3: Begin
    WriteLn('3*0=0');
    WriteLn('3*1=3');
    WriteLn('3*2=6');
    WriteLn('3*3=9');
    WriteLn('3*4=12');
    WriteLn('3*5=15');
    WriteLn('3*6=18');
    WriteLn('3*7=21');
    WriteLn('3*8=24');
    WriteLn('3*9=27');
   End;
  4: Begin
    WriteLn('4*0=0');
    WriteLn('4*1=4');
    WriteLn('4*2=8');
    WriteLn('4*3=12');
    WriteLn('4*4=16');
    WriteLn('4*5=20');
    WriteLn('4*6=24');
    WriteLn('4*7=28');
    WriteLn('4*8=32');
    WriteLn('4*9=36');
   End;
  5: Begin
    WriteLn('5*0=0');
    WriteLn('5*1=5');
    WriteLn('5*2=10');
    WriteLn('5*3=15');
    WriteLn('5*4=20');
    WriteLn('5*5=25');
    WriteLn('5*6=30');
    WriteLn('5*7=35');
    WriteLn('5*8=40');
    WriteLn('5*9=45');
   End;
  6: Begin
    WriteLn('6*0=0');
    WriteLn('6*1=6');
    WriteLn('6*2=12');
    WriteLn('6*3=18');
    WriteLn('6*4=24');
    WriteLn('6*5=30');
    WriteLn('6*6=36');
    WriteLn('6*7=42');
    WriteLn('6*8=48');
    WriteLn('6*9=54');
   End;
  7: Begin
    WriteLn('7*0=0');
    WriteLn('7*1=7');
    WriteLn('7*2=14');
    WriteLn('7*3=21');
    WriteLn('7*4=28');
    WriteLn('7*5=35');
    WriteLn('7*6=42');
    WriteLn('7*7=49');
    WriteLn('7*8=56');
    WriteLn('7*9=63');
   End;
  8: Begin
    WriteLn('8*0=0');
    WriteLn('8*1=8');
    WriteLn('8*2=16');
    WriteLn('8*3=24');
    WriteLn('8*4=32');
    WriteLn('8*5=40');
    WriteLn('8*6=48');
    WriteLn('8*7=56');
    WriteLn('8*8=64');
    WriteLn('8*9=72');
   End;
  9: Begin
    WriteLn('9*0=0');
    WriteLn('9*1=9');
    WriteLn('9*2=18');
    WriteLn('9*3=27');
    WriteLn('9*4=36');
    WriteLn('9*5=45');
    WriteLn('9*6=54');
    WriteLn('9*7=63');
    WriteLn('9*8=72');
    WriteLn('9*9=81');
   End;
  10: Begin
    WriteLn('10*0=0');
    WriteLn('10*1=10');
    WriteLn('10*2=20');
    WriteLn('10*3=30');
    WriteLn('10*4=40');
    WriteLn('10*5=50');
    WriteLn('10*6=60');
    WriteLn('10*7=70');
    WriteLn('10*8=80');
    WriteLn('10*9=90');
   End;
  11: Begin
    WriteLn('11*0=0');
    WriteLn('11*1=11');
    WriteLn('11*2=22');
    WriteLn('11*3=33');
    WriteLn('11*4=44');
    WriteLn('11*5=55');
    WriteLn('11*6=66');
    WriteLn('11*7=77');
    WriteLn('11*8=88');
    WriteLn('11*9=99');
   End;
  12: Begin
    WriteLn('12*0=0');
    WriteLn('12*1=12');
    WriteLn('12*2=24');
    WriteLn('12*3=36');
    WriteLn('12*4=48');
    WriteLn('12*5=60');
    WriteLn('12*6=72');
    WriteLn('12*7=84');
    WriteLn('12*8=96');
    WriteLn('12*9=108');
   End;
  13: Begin
    WriteLn('13*0=0');
    WriteLn('13*1=13');
    WriteLn('13*2=26');
    WriteLn('13*3=39');
    WriteLn('13*4=52');
    WriteLn('13*5=65');
    WriteLn('13*6=78');
    WriteLn('13*7=91');
    WriteLn('13*8=104');
    WriteLn('13*9=117');
   End;
  14: Begin
    WriteLn('14*0=0');
    WriteLn('14*1=14');
    WriteLn('14*2=28');
    WriteLn('14*3=42');
    WriteLn('14*4=56');
    WriteLn('14*5=70');
    WriteLn('14*6=84');
    WriteLn('14*7=98');
    WriteLn('14*8=112');
    WriteLn('14*9=126');
   End;
  15: Begin
    WriteLn('15*0=0');
    WriteLn('15*1=15');
    WriteLn('15*2=30');
    WriteLn('15*3=45');
    WriteLn('15*4=60');
    WriteLn('15*5=75');
    WriteLn('15*6=90');
    WriteLn('15*7=105');
    WriteLn('15*8=120');
    WriteLn('15*9=135');
   End;
  16: Begin
    WriteLn('16*0=0');
    WriteLn('16*1=16');
    WriteLn('16*2=32');
    WriteLn('16*3=48');
    WriteLn('16*4=64');
    WriteLn('16*5=80');
    WriteLn('16*6=96');
    WriteLn('16*7=112');
    WriteLn('16*8=128');
    WriteLn('16*9=144');
   End;
  17: Begin
    WriteLn('17*0=0');
    WriteLn('17*1=17');
    WriteLn('17*2=34');
    WriteLn('17*3=51');
    WriteLn('17*4=68');
    WriteLn('17*5=85');
    WriteLn('17*6=102');
    WriteLn('17*7=119');
    WriteLn('17*8=136');
    WriteLn('17*9=153');
   End;
  18: Begin
    WriteLn('18*0=0');
    WriteLn('18*1=18');
    WriteLn('18*2=36');
    WriteLn('18*3=54');
    WriteLn('18*4=72');
    WriteLn('18*5=90');
    WriteLn('18*6=108');
    WriteLn('18*7=126');
    WriteLn('18*8=144');
    WriteLn('18*9=162');
   End;
  19: Begin
    WriteLn('19*0=0');
    WriteLn('19*1=19');
    WriteLn('19*2=38');
    WriteLn('19*3=57');
    WriteLn('19*4=76');
    WriteLn('19*5=95');
    WriteLn('19*6=114');
    WriteLn('19*7=133');
    WriteLn('19*8=152');
    WriteLn('19*9=171');
   End;
  20: Begin
    WriteLn('20*0=0');
    WriteLn('20*1=20');
    WriteLn('20*2=40');
    WriteLn('20*3=60');
    WriteLn('20*4=80');
    WriteLn('20*5=100');
    WriteLn('20*6=120');
    WriteLn('20*7=140');
    WriteLn('20*8=160');
    WriteLn('20*9=180');
   End;
  21: Begin
    WriteLn('21*0=0');
    WriteLn('21*1=21');
    WriteLn('21*2=42');
    WriteLn('21*3=63');
    WriteLn('21*4=84');
    WriteLn('21*5=105');
    WriteLn('21*6=126');
    WriteLn('21*7=147');
    WriteLn('21*8=168');
    WriteLn('21*9=189');
   End;
  22: Begin
    WriteLn('22*0=0');
    WriteLn('22*1=22');
    WriteLn('22*2=44');
    WriteLn('22*3=66');
    WriteLn('22*4=88');
    WriteLn('22*5=110');
    WriteLn('22*6=132');
    WriteLn('22*7=154');
    WriteLn('22*8=176');
    WriteLn('22*9=198');
   End;
  23: Begin
    WriteLn('23*0=0');
    WriteLn('23*1=23');
    WriteLn('23*2=46');
    WriteLn('23*3=69');
    WriteLn('23*4=92');
    WriteLn('23*5=115');
    WriteLn('23*6=138');
    WriteLn('23*7=161');
    WriteLn('23*8=184');
    WriteLn('23*9=207');
   End;
  24: Begin
    WriteLn('24*0=0');
    WriteLn('24*1=24');
    WriteLn('24*2=48');
    WriteLn('24*3=72');
    WriteLn('24*4=96');
    WriteLn('24*5=120');
    WriteLn('24*6=144');
    WriteLn('24*7=168');
    WriteLn('24*8=192');
    WriteLn('24*9=216');
   End;
  25: Begin
    WriteLn('25*0=0');
    WriteLn('25*1=25');
    WriteLn('25*2=50');
    WriteLn('25*3=75');
    WriteLn('25*4=100');
    WriteLn('25*5=125');
    WriteLn('25*6=150');
    WriteLn('25*7=175');
    WriteLn('25*8=200');
    WriteLn('25*9=225');
   End;
  26: Begin
    WriteLn('26*0=0');
    WriteLn('26*1=26');
    WriteLn('26*2=52');
    WriteLn('26*3=78');
    WriteLn('26*4=104');
    WriteLn('26*5=130');
    WriteLn('26*6=156');
    WriteLn('26*7=182');
    WriteLn('26*8=208');
    WriteLn('26*9=234');
   End;
  27: Begin
    WriteLn('27*0=0');
    WriteLn('27*1=27');
    WriteLn('27*2=54');
    WriteLn('27*3=81');
    WriteLn('27*4=108');
    WriteLn('27*5=135');
    WriteLn('27*6=162');
    WriteLn('27*7=189');
    WriteLn('27*8=216');
    WriteLn('27*9=243');
   End;
  28: Begin
    WriteLn('28*0=0');
    WriteLn('28*1=28');
    WriteLn('28*2=56');
    WriteLn('28*3=84');
    WriteLn('28*4=112');
    WriteLn('28*5=140');
    WriteLn('28*6=168');
    WriteLn('28*7=196');
    WriteLn('28*8=224');
    WriteLn('28*9=252');
   End;
  29: Begin
    WriteLn('29*0=0');
    WriteLn('29*1=29');
    WriteLn('29*2=58');
    WriteLn('29*3=87');
    WriteLn('29*4=116');
    WriteLn('29*5=145');
    WriteLn('29*6=174');
    WriteLn('29*7=203');
    WriteLn('29*8=232');
    WriteLn('29*9=261');
   End;
  30: Begin
    WriteLn('30*0=0');
    WriteLn('30*1=30');
    WriteLn('30*2=60');
    WriteLn('30*3=90');
    WriteLn('30*4=120');
    WriteLn('30*5=150');
    WriteLn('30*6=180');
    WriteLn('30*7=210');
    WriteLn('30*8=240');
    WriteLn('30*9=270');
   End;
  31: Begin
    WriteLn('31*0=0');
    WriteLn('31*1=31');
    WriteLn('31*2=62');
    WriteLn('31*3=93');
    WriteLn('31*4=124');
    WriteLn('31*5=155');
    WriteLn('31*6=186');
    WriteLn('31*7=217');
    WriteLn('31*8=248');
    WriteLn('31*9=279');
   End;
  32: Begin
    WriteLn('32*0=0');
    WriteLn('32*1=32');
    WriteLn('32*2=64');
    WriteLn('32*3=96');
    WriteLn('32*4=128');
    WriteLn('32*5=160');
    WriteLn('32*6=192');
    WriteLn('32*7=224');
    WriteLn('32*8=256');
    WriteLn('32*9=288');
   End;
  33: Begin
    WriteLn('33*0=0');
    WriteLn('33*1=33');
    WriteLn('33*2=66');
    WriteLn('33*3=99');
    WriteLn('33*4=132');
    WriteLn('33*5=165');
    WriteLn('33*6=198');
    WriteLn('33*7=231');
    WriteLn('33*8=264');
    WriteLn('33*9=297');
   End;
  34: Begin
    WriteLn('34*0=0');
    WriteLn('34*1=34');
    WriteLn('34*2=68');
    WriteLn('34*3=102');
    WriteLn('34*4=136');
    WriteLn('34*5=170');
    WriteLn('34*6=204');
    WriteLn('34*7=238');
    WriteLn('34*8=272');
    WriteLn('34*9=306');
   End;
  35: Begin
    WriteLn('35*0=0');
    WriteLn('35*1=35');
    WriteLn('35*2=70');
    WriteLn('35*3=105');
    WriteLn('35*4=140');
    WriteLn('35*5=175');
    WriteLn('35*6=210');
    WriteLn('35*7=245');
    WriteLn('35*8=280');
    WriteLn('35*9=315');
   End;
  36: Begin
    WriteLn('36*0=0');
    WriteLn('36*1=36');
    WriteLn('36*2=72');
    WriteLn('36*3=108');
    WriteLn('36*4=144');
    WriteLn('36*5=180');
    WriteLn('36*6=216');
    WriteLn('36*7=252');
    WriteLn('36*8=288');
    WriteLn('36*9=324');
   End;
  37: Begin
    WriteLn('37*0=0');
    WriteLn('37*1=37');
    WriteLn('37*2=74');
    WriteLn('37*3=111');
    WriteLn('37*4=148');
    WriteLn('37*5=185');
    WriteLn('37*6=222');
    WriteLn('37*7=259');
    WriteLn('37*8=296');
    WriteLn('37*9=333');
   End;
  38: Begin
    WriteLn('38*0=0');
    WriteLn('38*1=38');
    WriteLn('38*2=76');
    WriteLn('38*3=114');
    WriteLn('38*4=152');
    WriteLn('38*5=190');
    WriteLn('38*6=228');
    WriteLn('38*7=266');
    WriteLn('38*8=304');
    WriteLn('38*9=342');
   End;
  39: Begin
    WriteLn('39*0=0');
    WriteLn('39*1=39');
    WriteLn('39*2=78');
    WriteLn('39*3=117');
    WriteLn('39*4=156');
    WriteLn('39*5=195');
    WriteLn('39*6=234');
    WriteLn('39*7=273');
    WriteLn('39*8=312');
    WriteLn('39*9=351');
   End;
  40: Begin
    WriteLn('40*0=0');
    WriteLn('40*1=40');
    WriteLn('40*2=80');
    WriteLn('40*3=120');
    WriteLn('40*4=160');
    WriteLn('40*5=200');
    WriteLn('40*6=240');
    WriteLn('40*7=280');
    WriteLn('40*8=320');
    WriteLn('40*9=360');
   End;
  41: Begin
    WriteLn('41*0=0');
    WriteLn('41*1=41');
    WriteLn('41*2=82');
    WriteLn('41*3=123');
    WriteLn('41*4=164');
    WriteLn('41*5=205');
    WriteLn('41*6=246');
    WriteLn('41*7=287');
    WriteLn('41*8=328');
    WriteLn('41*9=369');
   End;
  42: Begin
    WriteLn('42*0=0');
    WriteLn('42*1=42');
    WriteLn('42*2=84');
    WriteLn('42*3=126');
    WriteLn('42*4=168');
    WriteLn('42*5=210');
    WriteLn('42*6=252');
    WriteLn('42*7=294');
    WriteLn('42*8=336');
    WriteLn('42*9=378');
   End;
  43: Begin
    WriteLn('43*0=0');
    WriteLn('43*1=43');
    WriteLn('43*2=86');
    WriteLn('43*3=129');
    WriteLn('43*4=172');
    WriteLn('43*5=215');
    WriteLn('43*6=258');
    WriteLn('43*7=301');
    WriteLn('43*8=344');
    WriteLn('43*9=387');
   End;
  44: Begin
    WriteLn('44*0=0');
    WriteLn('44*1=44');
    WriteLn('44*2=88');
    WriteLn('44*3=132');
    WriteLn('44*4=176');
    WriteLn('44*5=220');
    WriteLn('44*6=264');
    WriteLn('44*7=308');
    WriteLn('44*8=352');
    WriteLn('44*9=396');
   End;
  45: Begin
    WriteLn('45*0=0');
    WriteLn('45*1=45');
    WriteLn('45*2=90');
    WriteLn('45*3=135');
    WriteLn('45*4=180');
    WriteLn('45*5=225');
    WriteLn('45*6=270');
    WriteLn('45*7=315');
    WriteLn('45*8=360');
    WriteLn('45*9=405');
   End;
  46: Begin
    WriteLn('46*0=0');
    WriteLn('46*1=46');
    WriteLn('46*2=92');
    WriteLn('46*3=138');
    WriteLn('46*4=184');
    WriteLn('46*5=230');
    WriteLn('46*6=276');
    WriteLn('46*7=322');
    WriteLn('46*8=368');
    WriteLn('46*9=414');
   End;
  47: Begin
    WriteLn('47*0=0');
    WriteLn('47*1=47');
    WriteLn('47*2=94');
    WriteLn('47*3=141');
    WriteLn('47*4=188');
    WriteLn('47*5=235');
    WriteLn('47*6=282');
    WriteLn('47*7=329');
    WriteLn('47*8=376');
    WriteLn('47*9=423');
   End;
  48: Begin
    WriteLn('48*0=0');
    WriteLn('48*1=48');
    WriteLn('48*2=96');
    WriteLn('48*3=144');
    WriteLn('48*4=192');
    WriteLn('48*5=240');
    WriteLn('48*6=288');
    WriteLn('48*7=336');
    WriteLn('48*8=384');
    WriteLn('48*9=432');
   End;
  49: Begin
    WriteLn('49*0=0');
    WriteLn('49*1=49');
    WriteLn('49*2=98');
    WriteLn('49*3=147');
    WriteLn('49*4=196');
    WriteLn('49*5=245');
    WriteLn('49*6=294');
    WriteLn('49*7=343');
    WriteLn('49*8=392');
    WriteLn('49*9=441');
   End;
  50: Begin
    WriteLn('50*0=0');
    WriteLn('50*1=50');
    WriteLn('50*2=100');
    WriteLn('50*3=150');
    WriteLn('50*4=200');
    WriteLn('50*5=250');
    WriteLn('50*6=300');
    WriteLn('50*7=350');
    WriteLn('50*8=400');
    WriteLn('50*9=450');
   End;
  51: Begin
    WriteLn('51*0=0');
    WriteLn('51*1=51');
    WriteLn('51*2=102');
    WriteLn('51*3=153');
    WriteLn('51*4=204');
    WriteLn('51*5=255');
    WriteLn('51*6=306');
    WriteLn('51*7=357');
    WriteLn('51*8=408');
    WriteLn('51*9=459');
   End;
  52: Begin
    WriteLn('52*0=0');
    WriteLn('52*1=52');
    WriteLn('52*2=104');
    WriteLn('52*3=156');
    WriteLn('52*4=208');
    WriteLn('52*5=260');
    WriteLn('52*6=312');
    WriteLn('52*7=364');
    WriteLn('52*8=416');
    WriteLn('52*9=468');
   End;
  53: Begin
    WriteLn('53*0=0');
    WriteLn('53*1=53');
    WriteLn('53*2=106');
    WriteLn('53*3=159');
    WriteLn('53*4=212');
    WriteLn('53*5=265');
    WriteLn('53*6=318');
    WriteLn('53*7=371');
    WriteLn('53*8=424');
    WriteLn('53*9=477');
   End;
  54: Begin
    WriteLn('54*0=0');
    WriteLn('54*1=54');
    WriteLn('54*2=108');
    WriteLn('54*3=162');
    WriteLn('54*4=216');
    WriteLn('54*5=270');
    WriteLn('54*6=324');
    WriteLn('54*7=378');
    WriteLn('54*8=432');
    WriteLn('54*9=486');
   End;
  55: Begin
    WriteLn('55*0=0');
    WriteLn('55*1=55');
    WriteLn('55*2=110');
    WriteLn('55*3=165');
    WriteLn('55*4=220');
    WriteLn('55*5=275');
    WriteLn('55*6=330');
    WriteLn('55*7=385');
    WriteLn('55*8=440');
    WriteLn('55*9=495');
   End;
  56: Begin
    WriteLn('56*0=0');
    WriteLn('56*1=56');
    WriteLn('56*2=112');
    WriteLn('56*3=168');
    WriteLn('56*4=224');
    WriteLn('56*5=280');
    WriteLn('56*6=336');
    WriteLn('56*7=392');
    WriteLn('56*8=448');
    WriteLn('56*9=504');
   End;
  57: Begin
    WriteLn('57*0=0');
    WriteLn('57*1=57');
    WriteLn('57*2=114');
    WriteLn('57*3=171');
    WriteLn('57*4=228');
    WriteLn('57*5=285');
    WriteLn('57*6=342');
    WriteLn('57*7=399');
    WriteLn('57*8=456');
    WriteLn('57*9=513');
   End;
  58: Begin
    WriteLn('58*0=0');
    WriteLn('58*1=58');
    WriteLn('58*2=116');
    WriteLn('58*3=174');
    WriteLn('58*4=232');
    WriteLn('58*5=290');
    WriteLn('58*6=348');
    WriteLn('58*7=406');
    WriteLn('58*8=464');
    WriteLn('58*9=522');
   End;
  59: Begin
    WriteLn('59*0=0');
    WriteLn('59*1=59');
    WriteLn('59*2=118');
    WriteLn('59*3=177');
    WriteLn('59*4=236');
    WriteLn('59*5=295');
    WriteLn('59*6=354');
    WriteLn('59*7=413');
    WriteLn('59*8=472');
    WriteLn('59*9=531');
   End;
  60: Begin
    WriteLn('60*0=0');
    WriteLn('60*1=60');
    WriteLn('60*2=120');
    WriteLn('60*3=180');
    WriteLn('60*4=240');
    WriteLn('60*5=300');
    WriteLn('60*6=360');
    WriteLn('60*7=420');
    WriteLn('60*8=480');
    WriteLn('60*9=540');
   End;
  61: Begin
    WriteLn('61*0=0');
    WriteLn('61*1=61');
    WriteLn('61*2=122');
    WriteLn('61*3=183');
    WriteLn('61*4=244');
    WriteLn('61*5=305');
    WriteLn('61*6=366');
    WriteLn('61*7=427');
    WriteLn('61*8=488');
    WriteLn('61*9=549');
   End;
  62: Begin
    WriteLn('62*0=0');
    WriteLn('62*1=62');
    WriteLn('62*2=124');
    WriteLn('62*3=186');
    WriteLn('62*4=248');
    WriteLn('62*5=310');
    WriteLn('62*6=372');
    WriteLn('62*7=434');
    WriteLn('62*8=496');
    WriteLn('62*9=558');
   End;
  63: Begin
    WriteLn('63*0=0');
    WriteLn('63*1=63');
    WriteLn('63*2=126');
    WriteLn('63*3=189');
    WriteLn('63*4=252');
    WriteLn('63*5=315');
    WriteLn('63*6=378');
    WriteLn('63*7=441');
    WriteLn('63*8=504');
    WriteLn('63*9=567');
   End;
  64: Begin
    WriteLn('64*0=0');
    WriteLn('64*1=64');
    WriteLn('64*2=128');
    WriteLn('64*3=192');
    WriteLn('64*4=256');
    WriteLn('64*5=320');
    WriteLn('64*6=384');
    WriteLn('64*7=448');
    WriteLn('64*8=512');
    WriteLn('64*9=576');
   End;
  65: Begin
    WriteLn('65*0=0');
    WriteLn('65*1=65');
    WriteLn('65*2=130');
    WriteLn('65*3=195');
    WriteLn('65*4=260');
    WriteLn('65*5=325');
    WriteLn('65*6=390');
    WriteLn('65*7=455');
    WriteLn('65*8=520');
    WriteLn('65*9=585');
   End;
  66: Begin
    WriteLn('66*0=0');
    WriteLn('66*1=66');
    WriteLn('66*2=132');
    WriteLn('66*3=198');
    WriteLn('66*4=264');
    WriteLn('66*5=330');
    WriteLn('66*6=396');
    WriteLn('66*7=462');
    WriteLn('66*8=528');
    WriteLn('66*9=594');
   End;
  67: Begin
    WriteLn('67*0=0');
    WriteLn('67*1=67');
    WriteLn('67*2=134');
    WriteLn('67*3=201');
    WriteLn('67*4=268');
    WriteLn('67*5=335');
    WriteLn('67*6=402');
    WriteLn('67*7=469');
    WriteLn('67*8=536');
    WriteLn('67*9=603');
   End;
  68: Begin
    WriteLn('68*0=0');
    WriteLn('68*1=68');
    WriteLn('68*2=136');
    WriteLn('68*3=204');
    WriteLn('68*4=272');
    WriteLn('68*5=340');
    WriteLn('68*6=408');
    WriteLn('68*7=476');
    WriteLn('68*8=544');
    WriteLn('68*9=612');
   End;
  69: Begin
    WriteLn('69*0=0');
    WriteLn('69*1=69');
    WriteLn('69*2=138');
    WriteLn('69*3=207');
    WriteLn('69*4=276');
    WriteLn('69*5=345');
    WriteLn('69*6=414');
    WriteLn('69*7=483');
    WriteLn('69*8=552');
    WriteLn('69*9=621');
   End;
  70: Begin
    WriteLn('70*0=0');
    WriteLn('70*1=70');
    WriteLn('70*2=140');
    WriteLn('70*3=210');
    WriteLn('70*4=280');
    WriteLn('70*5=350');
    WriteLn('70*6=420');
    WriteLn('70*7=490');
    WriteLn('70*8=560');
    WriteLn('70*9=630');
   End;
  71: Begin
    WriteLn('71*0=0');
    WriteLn('71*1=71');
    WriteLn('71*2=142');
    WriteLn('71*3=213');
    WriteLn('71*4=284');
    WriteLn('71*5=355');
    WriteLn('71*6=426');
    WriteLn('71*7=497');
    WriteLn('71*8=568');
    WriteLn('71*9=639');
   End;
  72: Begin
    WriteLn('72*0=0');
    WriteLn('72*1=72');
    WriteLn('72*2=144');
    WriteLn('72*3=216');
    WriteLn('72*4=288');
    WriteLn('72*5=360');
    WriteLn('72*6=432');
    WriteLn('72*7=504');
    WriteLn('72*8=576');
    WriteLn('72*9=648');
   End;
  73: Begin
    WriteLn('73*0=0');
    WriteLn('73*1=73');
    WriteLn('73*2=146');
    WriteLn('73*3=219');
    WriteLn('73*4=292');
    WriteLn('73*5=365');
    WriteLn('73*6=438');
    WriteLn('73*7=511');
    WriteLn('73*8=584');
    WriteLn('73*9=657');
   End;
  74: Begin
    WriteLn('74*0=0');
    WriteLn('74*1=74');
    WriteLn('74*2=148');
    WriteLn('74*3=222');
    WriteLn('74*4=296');
    WriteLn('74*5=370');
    WriteLn('74*6=444');
    WriteLn('74*7=518');
    WriteLn('74*8=592');
    WriteLn('74*9=666');
   End;
  75: Begin
    WriteLn('75*0=0');
    WriteLn('75*1=75');
    WriteLn('75*2=150');
    WriteLn('75*3=225');
    WriteLn('75*4=300');
    WriteLn('75*5=375');
    WriteLn('75*6=450');
    WriteLn('75*7=525');
    WriteLn('75*8=600');
    WriteLn('75*9=675');
   End;
  76: Begin
    WriteLn('76*0=0');
    WriteLn('76*1=76');
    WriteLn('76*2=152');
    WriteLn('76*3=228');
    WriteLn('76*4=304');
    WriteLn('76*5=380');
    WriteLn('76*6=456');
    WriteLn('76*7=532');
    WriteLn('76*8=608');
    WriteLn('76*9=684');
   End;
  77: Begin
    WriteLn('77*0=0');
    WriteLn('77*1=77');
    WriteLn('77*2=154');
    WriteLn('77*3=231');
    WriteLn('77*4=308');
    WriteLn('77*5=385');
    WriteLn('77*6=462');
    WriteLn('77*7=539');
    WriteLn('77*8=616');
    WriteLn('77*9=693');
   End;
  78: Begin
    WriteLn('78*0=0');
    WriteLn('78*1=78');
    WriteLn('78*2=156');
    WriteLn('78*3=234');
    WriteLn('78*4=312');
    WriteLn('78*5=390');
    WriteLn('78*6=468');
    WriteLn('78*7=546');
    WriteLn('78*8=624');
    WriteLn('78*9=702');
   End;
  79: Begin
    WriteLn('79*0=0');
    WriteLn('79*1=79');
    WriteLn('79*2=158');
    WriteLn('79*3=237');
    WriteLn('79*4=316');
    WriteLn('79*5=395');
    WriteLn('79*6=474');
    WriteLn('79*7=553');
    WriteLn('79*8=632');
    WriteLn('79*9=711');
   End;
  80: Begin
    WriteLn('80*0=0');
    WriteLn('80*1=80');
    WriteLn('80*2=160');
    WriteLn('80*3=240');
    WriteLn('80*4=320');
    WriteLn('80*5=400');
    WriteLn('80*6=480');
    WriteLn('80*7=560');
    WriteLn('80*8=640');
    WriteLn('80*9=720');
   End;
  81: Begin
    WriteLn('81*0=0');
    WriteLn('81*1=81');
    WriteLn('81*2=162');
    WriteLn('81*3=243');
    WriteLn('81*4=324');
    WriteLn('81*5=405');
    WriteLn('81*6=486');
    WriteLn('81*7=567');
    WriteLn('81*8=648');
    WriteLn('81*9=729');
   End;
  82: Begin
    WriteLn('82*0=0');
    WriteLn('82*1=82');
    WriteLn('82*2=164');
    WriteLn('82*3=246');
    WriteLn('82*4=328');
    WriteLn('82*5=410');
    WriteLn('82*6=492');
    WriteLn('82*7=574');
    WriteLn('82*8=656');
    WriteLn('82*9=738');
   End;
  83: Begin
    WriteLn('83*0=0');
    WriteLn('83*1=83');
    WriteLn('83*2=166');
    WriteLn('83*3=249');
    WriteLn('83*4=332');
    WriteLn('83*5=415');
    WriteLn('83*6=498');
    WriteLn('83*7=581');
    WriteLn('83*8=664');
    WriteLn('83*9=747');
   End;
  84: Begin
    WriteLn('84*0=0');
    WriteLn('84*1=84');
    WriteLn('84*2=168');
    WriteLn('84*3=252');
    WriteLn('84*4=336');
    WriteLn('84*5=420');
    WriteLn('84*6=504');
    WriteLn('84*7=588');
    WriteLn('84*8=672');
    WriteLn('84*9=756');
   End;
  85: Begin
    WriteLn('85*0=0');
    WriteLn('85*1=85');
    WriteLn('85*2=170');
    WriteLn('85*3=255');
    WriteLn('85*4=340');
    WriteLn('85*5=425');
    WriteLn('85*6=510');
    WriteLn('85*7=595');
    WriteLn('85*8=680');
    WriteLn('85*9=765');
   End;
  86: Begin
    WriteLn('86*0=0');
    WriteLn('86*1=86');
    WriteLn('86*2=172');
    WriteLn('86*3=258');
    WriteLn('86*4=344');
    WriteLn('86*5=430');
    WriteLn('86*6=516');
    WriteLn('86*7=602');
    WriteLn('86*8=688');
    WriteLn('86*9=774');
   End;
  87: Begin
    WriteLn('87*0=0');
    WriteLn('87*1=87');
    WriteLn('87*2=174');
    WriteLn('87*3=261');
    WriteLn('87*4=348');
    WriteLn('87*5=435');
    WriteLn('87*6=522');
    WriteLn('87*7=609');
    WriteLn('87*8=696');
    WriteLn('87*9=783');
   End;
  88: Begin
    WriteLn('88*0=0');
    WriteLn('88*1=88');
    WriteLn('88*2=176');
    WriteLn('88*3=264');
    WriteLn('88*4=352');
    WriteLn('88*5=440');
    WriteLn('88*6=528');
    WriteLn('88*7=616');
    WriteLn('88*8=704');
    WriteLn('88*9=792');
   End;
  89: Begin
    WriteLn('89*0=0');
    WriteLn('89*1=89');
    WriteLn('89*2=178');
    WriteLn('89*3=267');
    WriteLn('89*4=356');
    WriteLn('89*5=445');
    WriteLn('89*6=534');
    WriteLn('89*7=623');
    WriteLn('89*8=712');
    WriteLn('89*9=801');
   End;
  90: Begin
    WriteLn('90*0=0');
    WriteLn('90*1=90');
    WriteLn('90*2=180');
    WriteLn('90*3=270');
    WriteLn('90*4=360');
    WriteLn('90*5=450');
    WriteLn('90*6=540');
    WriteLn('90*7=630');
    WriteLn('90*8=720');
    WriteLn('90*9=810');
   End;
  91: Begin
    WriteLn('91*0=0');
    WriteLn('91*1=91');
    WriteLn('91*2=182');
    WriteLn('91*3=273');
    WriteLn('91*4=364');
    WriteLn('91*5=455');
    WriteLn('91*6=546');
    WriteLn('91*7=637');
    WriteLn('91*8=728');
    WriteLn('91*9=819');
   End;
  92: Begin
    WriteLn('92*0=0');
    WriteLn('92*1=92');
    WriteLn('92*2=184');
    WriteLn('92*3=276');
    WriteLn('92*4=368');
    WriteLn('92*5=460');
    WriteLn('92*6=552');
    WriteLn('92*7=644');
    WriteLn('92*8=736');
    WriteLn('92*9=828');
   End;
  93: Begin
    WriteLn('93*0=0');
    WriteLn('93*1=93');
    WriteLn('93*2=186');
    WriteLn('93*3=279');
    WriteLn('93*4=372');
    WriteLn('93*5=465');
    WriteLn('93*6=558');
    WriteLn('93*7=651');
    WriteLn('93*8=744');
    WriteLn('93*9=837');
   End;
  94: Begin
    WriteLn('94*0=0');
    WriteLn('94*1=94');
    WriteLn('94*2=188');
    WriteLn('94*3=282');
    WriteLn('94*4=376');
    WriteLn('94*5=470');
    WriteLn('94*6=564');
    WriteLn('94*7=658');
    WriteLn('94*8=752');
    WriteLn('94*9=846');
   End;
  95: Begin
    WriteLn('95*0=0');
    WriteLn('95*1=95');
    WriteLn('95*2=190');
    WriteLn('95*3=285');
    WriteLn('95*4=380');
    WriteLn('95*5=475');
    WriteLn('95*6=570');
    WriteLn('95*7=665');
    WriteLn('95*8=760');
    WriteLn('95*9=855');
   End;
  96: Begin
    WriteLn('96*0=0');
    WriteLn('96*1=96');
    WriteLn('96*2=192');
    WriteLn('96*3=288');
    WriteLn('96*4=384');
    WriteLn('96*5=480');
    WriteLn('96*6=576');
    WriteLn('96*7=672');
    WriteLn('96*8=768');
    WriteLn('96*9=864');
   End;
  97: Begin
    WriteLn('97*0=0');
    WriteLn('97*1=97');
    WriteLn('97*2=194');
    WriteLn('97*3=291');
    WriteLn('97*4=388');
    WriteLn('97*5=485');
    WriteLn('97*6=582');
    WriteLn('97*7=679');
    WriteLn('97*8=776');
    WriteLn('97*9=873');
   End;
  98: Begin
    WriteLn('98*0=0');
    WriteLn('98*1=98');
    WriteLn('98*2=196');
    WriteLn('98*3=294');
    WriteLn('98*4=392');
    WriteLn('98*5=490');
    WriteLn('98*6=588');
    WriteLn('98*7=686');
    WriteLn('98*8=784');
    WriteLn('98*9=882');
   End;
  99: Begin
    WriteLn('99*0=0');
    WriteLn('99*1=99');
    WriteLn('99*2=198');
    WriteLn('99*3=297');
    WriteLn('99*4=396');
    WriteLn('99*5=495');
    WriteLn('99*6=594');
    WriteLn('99*7=693');
    WriteLn('99*8=792');
    WriteLn('99*9=891');
   End;
  100: Begin
    WriteLn('100*0=0');
    WriteLn('100*1=100');
    WriteLn('100*2=200');
    WriteLn('100*3=300');
    WriteLn('100*4=400');
    WriteLn('100*5=500');
    WriteLn('100*6=600');
    WriteLn('100*7=700');
    WriteLn('100*8=800');
    WriteLn('100*9=900');
   End;
  Else WriteLn('No access in demo version. Ask develor for full version');
  End;
  ReadLn;
end.


Brainenjii писал(а):Наслаждайтесь ^_^

Brainenjii писал(а):Ask develor for full version

Код: Выделить всё

WriteLn('Please, insert new user on my keyboard and reboot computer now...');

Код: Выделить всё

program Project1;

{$APPTYPE CONSOLE}
{$ifdef fpc}{$mode delphi}{$endif}

uses
  SysUtils,
  Classes;

type
  EMultiplyTableError = Exception;

  IMultiplyTable = interface(IInterface)
  ['{99F347EE-3B30-488E-8F90-DE4A2D0AA15B}']
    procedure Print;
  end;

  TMultiplyTable = class(TInterfacedObject, IMultiplyTable)
  private
    fSize   : Integer;
    fItems  : TList;
  protected
    procedure Print;
  public
    constructor Create;
    destructor Destroy; override;
    procedure Initialize;
  end;

  TMultiplyTableItem = class(TObject)
  private
    fValue : Integer;
  protected
    procedure SetValue(AValue: Integer); virtual;
    function GetValue: Integer; virtual;
  public
    property Value: Integer read GetValue write SetValue;
  end;

  TMultiplyTableMultiplier = class(TMultiplyTableItem);

  IOperation = interface
  ['{4BFEB191-6398-440A-B5F9-82D3E43BA484}']
    function Operate(valueA, valueB: Integer): Integer;
  end;

  TMulityplication = class(TInterfacedObject, IOperation)
  protected
    function Operate(valueA, valueB: Integer): Integer;
  end;

  TFormatter = class(TObject)
  private
    fItem : TMultiplyTableItem;
    fMultiplier : TMultiplyTableMultiplier;
  public
    constructor Create(AItem: TMultiplyTableItem);
    procedure SetMultiplier(AMulityplier: TMultiplyTableMultiplier);
    function GetFormatString(AResultOfOperation: Integer): String;
  end;


function AllocMultiplication(out obj: IInterface): HRESULT;
var
  ml : TMulityplication;
begin
  ml := TMulityplication.Create;
  obj:= ml as IInterface;
  Result:=0;
end;

{ TMultiplyTable }

constructor TMultiplyTable.Create;
begin
  inherited Create;
  Readln(fSize);
  fSize:=fSize+1;
  if fSize<0 then fSize:=0;
  fItems:=TList.Create;
end;

destructor TMultiplyTable.Destroy;
begin
  fItems.Free;
  WriteLn('No access in demo version. Ask develor for full version');
  readln;
  inherited;
end;

procedure TMultiplyTable.Initialize;
var
  i     : integer;
  item  : TMultiplyTableItem;
  Created: Boolean;
begin
  Created:=True;
  for i:=0 to fSize-1 do begin
    try
      item := TMultiplyTableItem.Create;
      try
        item.Value:=i;
        fItems.Add(item);
      except
        item.Free;
      end;
    except
      Created:=False;
    end;
  end;
  if not Created then
    raise EMultiplyTableError.Create('Unable to create mulitply table object');
end;

procedure TMultiplyTable.Print;
var
  i : Integer;
  j : Integer;
  item  : TMultiplyTableItem;
  sub   : TMultiplyTableMultiplier;
  oper  : IOperation;
  face  : IInterface;
  Result  : Integer;
  formatter : TFormatter;
begin
  if fItems.Count = 0 then
    raise EMultiplyTableError.Create('table is not initialized!');
  try
    for i:=0 to fItems.Count-1 do begin
      item:=TMultiplyTableItem(fItems[i]);
      for j:=0 to fItems.Count-1 do begin
        sub:=TMultiplyTableMultiplier.Create;
        sub.Value:=j;
        AllocMultiplication(face);
        oper:=face as IOperation;
        Result:=oper.Operate(item.Value, sub.Value);
        formatter := TFormatter.Create(item);
        formatter.SetMultiplier(sub);
        writeln(formatter.GetFormatString(Result));
        oper:=nil;
      end;
    end;
  except
    raise EMultiplyTableError.Create('unable to print the table!');
  end;
end;

{ TMultiplyTableItem }

function TMultiplyTableItem.GetValue: Integer;
begin
  Result:=fValue;
end;

procedure TMultiplyTableItem.SetValue(AValue: Integer);
begin
  fValue:=AValue;
end;

{ TMulityplication }

function TMulityplication.Operate(valueA, valueB: Integer): Integer;
var
  c, d  : Double;
  j     : Integer;
begin
  c:=0;
  d:=ValueA;
  for j:=1 to ValueB do c:=c+d;
  Result:=Round(c);
end;

{ TFormatter }

constructor TFormatter.Create(AItem: TMultiplyTableItem);
begin
  if not Assigned(AItem) then
    raise EMultiplyTableError.Create('unable to create multiplier');
  fItem:=AItem;
end;

function TFormatter.GetFormatString(AResultOfOperation: Integer): String;
begin
  if not Assigned(fItem) or not Assigned(fMultiplier) then
    raise EMultiplyTableError.Create('Invalid parameters');
  Result:=IntToStr(fItem.Value)+'*'+IntToStr(fMultiplier.Value)+'='+IntToStr(AResultOfOperation);
end;

procedure TFormatter.SetMultiplier(AMulityplier: TMultiplyTableMultiplier);
begin
  if not Assigned(AMulityplier) then
    raise EMultiplyTableError.Create('Bad multiplier passed');
  fMultiplier:=AMulityplier;
end;

var
  Table : TMultiplyTable;
  FacemObTable : IMultiplyTable;
begin
  Table := TMultiplyTable.Create;
  Table.Initialize;
  FacemObTable := Table as IMultiplyTable;
  FacemObTable.Print;
  FacemObTable:=nil;
end.


Vadim писал(а):Да уж... Этой своей программой, Вы бедную, наивную девушку с голубыми глазами точно убили наповал...

скалогрыз писал(а):вместо того, чтобы глумиться

Саша писал(а):Вот ты вводишь число

AbakAngelSoft писал(а):н-да - а Вы сударь не глумитесь? +1

AbakAngelSoft писал(а):

Саша писал(а):Вот ты вводишь число

?

...
100*98 = 9604
100*99 = 9801
100*100 = 10000

Brainenjii писал(а):Код ошибочен - на ввод 101 мне выдало