в общем должна получится сумма цифр.
У меня программа:
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.