Дано трёхзначное число. напишите программу, которая определяет: является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

var a: integer begin writeln('a? ') readln(a); if (a mod 10)- (a div 100) then writeln('yes') else writeln('n'); end

Microsoft qbasic 1.0 cls x = 0 do while x < = 2.1001     print x, cos(x)     x = x + .1 loop результат   0                        1   .1                      .9950042   .2                      .9800666   .3                      .9553365   .4                      .921061   .5                      .8775826   .6                      .8253356   .7                      .7648422   .8000001          .6967067   .9000001          .6216099   1                        .5403022   1.1                    .453596   1.2                    .3623576   1.3                    .2674986   1.4                    .1699669   1.5                    7.073697e-02   1.6                  -2.919978e-02   1.7                  -.1288448   1.8                  -.2272024   1.9                  -.3232899   2                      -.4161471   2.1                  -.5048462

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 begin   var t: =1000;   var k: integer;   repeat       k: =readinteger('-> ');       t-=k   until t< 0;   writeln('') end. пример -> 453 -> 216 -> 39 -> 64 -> 312 решение для "древних паскалей" var   k,t: integer; begin   t: =1000;   repeat       write('-> '); read(k);       t: =t-k   until t< 0;   writeln('') end.