фдутеут Ф фдутеут Регистрация 28 Дек 2013 Сообщения 82 Репутация -3 Спасибо 0 Монет 0 10 Дек 2016 #1 в общем должна получится сумма цифр. У меня программа: program summa; var a:integer; b, c, d, e:real; begin readln (a); b:= a mod 10; c:= (a mod 100 - b) / 10; e:= b+c+d writeln (e); end. В результате он конечно выдаёт сумму, но зачем-то пишет кучу знаков после запятой. Например: a=123. Он выдаёт сумму чисел: 6.00000000000000E+000.
в общем должна получится сумма цифр. У меня программа: program summa; var a:integer; b, c, d, e:real; begin readln (a); b:= a mod 10; c:= (a mod 100 - b) / 10; e:= b+c+d writeln (e); end. В результате он конечно выдаёт сумму, но зачем-то пишет кучу знаков после запятой. Например: a=123. Он выдаёт сумму чисел: 6.00000000000000E+000.