Выводит странные числа (язык Паскаль)
program JoJo;
var d,a,b,c:real;
begin
writeln ('введите a,b,c');
read (a,b,c);
d:=sqr(b)-4*a*c;
writeln ('дискриминант=', d);
end.

jkh40949    2   14.04.2020 17:13    1