Нельзя преобразовать тип real к integer program primer; var a,b,s,m,d: integer; begin; readln (a,b,s,m,d); s: =a+b; m: =a*b; d: =(a/b); writeln(s); writeln(m); writeln(d); end.

Simpleton1    3   16.09.2019 02:20    0