Последний отзыв
Книга дельная. Без воды, приводятся реальные кейсы и способы их разрешения. Много практичных полезных советов и методик. Кое-что уже испробовала в дел...
Далее
По всем вопросам обращайтесь на: info@litportal.ru
(©) 2003-2025.
✖
ЕГЭ 2021. Информатика. Программирование. Как решать задачи ExamBegin 1-80?
Настройки чтения
Размер шрифта
Высота строк
Поля
Read(a);
if a < min then min := a;
end;
Write(min);
end.
ExamBegin4
На вход подаются три целых числа – коэффициенты A, B, C квадратного уравнения A·x2 + B·x + C = 0 (A не равно 0). Каждое число вводится с новой строки. Найти корни данного уравнения. Корни вычисляются как вещественные числа. Если имеются два различных корня, то вначале выводить меньший, а затем больший (каждый на новой строке). Если корней нет, то вывести текст «NO».
uses PT4Exam;
var
a, b, c: integer;
d, x, x1, x2: real;
begin
Task('ExamBegin4');
Read(a, b, c);
d := sqr(b) – 4 * a * c;
if d < 0 then Write('NO')
else begin
if d = 0 then begin
x := -(b / (2 * a));
WriteLn(x:4:2);
end
else begin
x1 := -(b + sqrt(d)) / (2 * a);
x2 := -(b – sqrt(d)) / (2 * a);
if x1 > x2 then begin
WriteLn(x2:4:2);
WriteLn(x1:4:2);
end
else begin
WriteLn(x1:4:2);
WriteLn(x2:4:2);
end;
end;
end;
end.
ExamBegin5
На вход подаются два целых положительных числа; каждое число вводится с новой строки. Найти их наибольший общий делитель (НОД), используя алгоритм Евклида: НОД(A, B) = НОД(B, A mod B), если B ? 0; НОД(A, 0) = A, где «mod» обозначает операцию взятия остатка от деления.
uses PT4Exam;
var
a, b: integer;
begin
Task('ExamBegin5');
Read(a, b);
while a <> b do
begin
if a > b then a := a – b
else b := b – a;
end;
Write(a);
end.
Другие электронные книги автора Елена Леонидовна Теплоухова
Последний отзыв
Книга дельная. Без воды, приводятся реальные кейсы и способы их разрешения. Много практичных полезных советов и методик. Кое-что уже испробовала в дел...
Далее