Механическая счетная машина арифмометр где и кем создано

Первые арифмометры были созданы в середине 20 века (1930-50г) создан был первый арифометр чарльзом бэббиджом

Sub massiv()   m=inputbox("введите размерность массива m  ")   i=1   s=""   dim mas()   redim mas(m)   while i< =int(m)       mas(i)=round(rnd*100)       if (mas(i)> =50) and (mas(i)< =90) then           s=s+str(mas(i))           if i< > int(m) then s=s+","           i=i+1         end if      wend     msgbox s end sub

1. pascalabc.net // pascalabc.net 3.2, сборка 1362 от 14.12.2016 // внимание! если программа не работает, обновите версию! begin   var x: =readreal('введите число: ');   writeln((x> =0) and (x< =2)? 'да': 'нет') end. пример введите число: 1.17 да 2. на этой же версии в стиле традиционного школьного паскаля var   x: real; begin   write('введите число: '); read(x);   if (x> =0) and (x< =2) then writeln('да')   else writeln('нет') end.