Ответы на вопрос:
// pascalabc.net 3.3, сборка 1611 от 06.01.2018 // внимание! если программа не работает, обновите версию! begin var (a,b,c): =readreal3('введите a,b,c для 1-го уравнения ax+by=c: '); var (d,e,f): =readreal3('введите a,b,c для 2-го уравнения ax+by=c: '); //по правилу крамера var dd: =a*e-b*d; var dx: =c*e-b*f; var dy: =a*f-c*d; var x: =dx/dd; var y: =dy/dd; writeln('x=',x,', y=',y) end. пример введите a,b,c для 1-го уравнения ax+by=c: 1 5 7 введите a,b,c для 2-го уравнения ax+by=c: 3 -2 4 x=2, y=1
Var a,b,c,y: integer; // переменные begin // начало программы write('a, b, c: '); // вывод подсказки перед вводом данных readln(a,b,c); // ввод данных y: =a+b+c; / вычисление y writeln('y = ',y); // вывод результата end. // конец программы пример: a, b, c: 8 3 5 y = 16
Популярно: Информатика
-
Asked9me908.11.2020 01:59
-
lenokm05040617.11.2021 21:00
-
MR3AlI21.11.2021 03:37
-
Примари07.10.2021 23:31
-
чичекадиль26.06.2022 07:17
-
Anrehah22.04.2023 20:35
-
nn81492125.03.2021 21:06
-
peter070706.02.2022 18:13
-
dianadalla10.10.2020 07:13
-
VadAltman1319.04.2020 21:14