Question

Придумати задачу з розгалуженням яку можна описати в скретч

Answer 1

Program: LinearEquation;

var a,b: real;

begin

 writeln('Ця програма розв'язує лінійне рівняння ax=b');

 write('a=');

 readln(a);

 writeln('b=');

 readln(b);

 if a=0 then writeln('x=',b/a)

 else if b=0 then writeln('Будь-яке дійсне число задовільняє цьому рівнянню')

 else writeln('Рівняння не має дійсних розв'язків');

END.