Мобильный телефон, дополненный функциональностью карманного персонального компьютера
226
231
Ответы на вопрос:
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.
Популярно: Информатика
-
chalenkotaya05.06.2023 18:37
-
regroom12.04.2023 02:52
-
дарина2586414.01.2021 00:06
-
WepaDarkSouls03.03.2020 12:30
-
snyaSergeeva23.05.2022 04:20
-
КристинаВощевоз55525.03.2020 08:46
-
amur345312.11.2021 11:18
-
Yulia280302.03.2022 11:33
-
buchsandra11.05.2021 04:36
-
RitaSnow26.04.2023 03:47