Работа с языком программирования Паскаль Работа с языком программирования Паскаль (PascalABC- http://pascalabc.net/, - id1185695020210130 от avruchka7 30.01.2021 13:42

Question

Информатика: Работа с языком программирования Паскаль Работа с языком программирования Паскаль (PascalABC- http://pascalabc.net/, онлайн Pascal-https://www.onlinegdb.com/online_pascal_compiler). Протестировать любую из программ 13 или 12. Подобрать такие три набора коэффициентов a, b, при которых программа выдаст 1 корень или «Нет корней», или корень-любое число .

avruchka7 · Accepted Answer

Program pr;
uses crt;

var a,b:real;

Begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);

if (a<0) and (b<0)
  then
Begin
  a:=a+2;
   b:=b+2;
writeln('a = ',a);
writeln('b = ',b);
   end
else
  if (a>0) and (b<0)
  then
writeln('a*b = ',a*b)
else
   if (a<0) and (b>0)
    then
    writeln('b-a = ', b-a)

else writeln('Ни одно условие не выполняется');

readln;
end.

MOGZ ответил