Регистрация
turdalievab
20.08.2021 07:32
Информатика
Есть ответ 👍

ответь на это всё
СРО́́ЧН

298
453
Посмотреть ответы 1

Ответы на вопрос:

ДанькоДенис2018
ДанькоДенис2018
4,5(78 оценок)
// pascalabc.net 3.2, сборка 1356 от 04.12.2016 // внимание! если программа не работает, обновите версию! procedure lineequation(a,b: real; var x: real; var flag: integer); begin   if a=0 then flag: =b=0? -2: -1   else begin x: =-b/a; flag: =0 end end; begin   var a,b,x: real;   write('введите a,b: '); read(a,b);   var flag: =1;   lineequation(a,b,x,flag);   case flag of   0: writeln('x=',x);   -1: writeln('решений нет')   else writeln('бесконечое множество решений')   end end.

Популярно: Информатика