Ответы на вопрос:
program calklin;
uses
crt;
var
a, b, x: real;
begin
textcolor(red);
gotoxy(10, 5);
write('вас калькулятор, способный решать линейные уравнения');
gotoxy(10, 6);
write('введите а=');
readln(a);
gotoxy(10, 7);
write('введите b=');
readln(b);
gotoxy(10, 8);
if a = 0
then
begin
gotoxy(10, 9);
textcolor(red);
writeln('нет корней')
end
else
begin
if a < > 0
then
begin
gotoxy(10, 10);
textcolor(red);
x : = (-b / a);
writeln('уравнение имеет корень и он равен: x =', x, '');
end;
end;
end.
Популярно: Информатика
-
Dasha22207.03.2020 18:00
-
rutasolntseva19.06.2020 19:00
-
rimmarimma8416.05.2023 07:58
-
Котан11207.11.2022 03:23
-
ArinaMiji10.03.2023 04:30
-
mazieva8287229.05.2022 19:59
-
sibuna129.01.2021 18:35
-
volck22324.10.2021 05:11
-
791006617.06.2022 13:18
-
helpmepls123456624.06.2020 14:46