Решить в Pascal
Если D<0 то с= «корней нет»
Ответы на вопрос
Ответил danilzemnitski
0
program df;
var d:integer;
begin
writeln('введите значения d');
read(d);
if d<0 then begin
writeln('корней нет');
end;
end.
var d:integer;
begin
writeln('введите значения d');
read(d);
if d<0 then begin
writeln('корней нет');
end;
end.
Новые вопросы