Люди, написать программу в паскале. нужно,чтобы сравнивалась дробная и целая часть вещественного числа,если она одна и та же,то тру,если нет,то false. допустим 12.12 будет тру,а если нет,то фолс. проблема в том,что через fruc и int сравнивается 12 и 0.12. домножать на 100 нельзя,тк это универсальная программа,может быть и число 123.123

267

401

Посмотреть ответы 3

Ответы на вопрос:

boltushkin01

Информатика

4,5(9 оценок)

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! begin var a: =readreal('введите число: ').tostring.towords('.'); if a.length=2 then writeln(a[0]=a[1]) else writeln(false); end. примеры введите число: 121.121 true введите число: 12.11999 false

evenen

Информатика

4,4(52 оценок)

Var v: real; c,b: integer; begin writeln('введите число'); readln(v); c: =round(v); v: =v-c; b: =c; while c> 0 do begin c: =c div 10; v: =v*10; end; c: =round(v); v: =v-c; if round(v*10000)< > 0 then writeln('части не равны') else begin if b=c then writeln('части равны') else writeln('части не равны'); end; end.

VasuHnoSasHHa

Информатика

4,4(17 оценок)

A) 5кб*1024=5120байт*8=40960 бит б)12288бит/8=1536байт/1024=1.5кб в) 213бит/8=26.625 байт/1024=0.026кб г)1536мб*1024=1572864кб 1536мб/1024=1.5 гб д)512кб*1024=524288байт*8=4194304бит