a = 6 => b = 18 - 3 = 15
<em>a < b(6 < 15) - да</em>
<em>b < 2 - нет, b = 15 - 2 = 13</em>
<em>b < 2 - нет, b = 13 - 2 = 11</em>
<em>b < 2 - нет, b = 11 - 2 = 9</em>
<em>b < 2 - net, b = 9 - 2 = 7</em>
<em>b < 2 - net, b = 7 - 2 = 5</em>
<em>b < 2 - net, b = 5 - 2 = 3</em>
<em>b < 2 - net, b = 3 - 2 = 1</em>
<em>b < 2 - da, Вывод: b(1)</em>
Ответ: 2
Var
a,b,c : integer;
d,x1,x2,s : real;
begin
writeln ('ax^2+bx+c=0');
write ('a=');
readln (a);
write ('b=');
readln (b);
write ('c=');
readln (c);
d := sqr (b) - 4 * a * c;
if d < 0 then
writeln ('Корней нет')
else
begin
x1 := (-b + sqrt (d))/(2*a);
x2 := (-b - sqrt (d))/(2*a);
if x1 <> x2 then
begin
writeln ('x1=',x1);
writeln ('x2=',x2);
s := x1+x2;
writeln ('s=',s);
end
else
writeln ('x=s=',x1);
end;
<span> end.</span>
Вариант а) отпадает, так как в 1 строке получим произведение 7 единиц=1, а должно получиться 0
Вариант б) отпадает, так как1 строке получим сумму 7 единиц=1, а должно получиться 0
В варианте В) прошла 1 строка, получили в итоге 0, но не прошла вторая строка. Получается 1, а должно быть равно 0
Остается вариант Г)
Если подставить значения, то все строки прошли тест.
Ответ: Г
ну или хард или винчестер
Var a, b: Real;
begin
write('Введите число а: ');
readln(a);
write('Введите число b: ');
readln(b); if a > b then
begin
a := a * a;
b := b * b * b;
end
else
begin
a := a * a * a;
b := b * b;
end;
writeln('a = ' + a);
writeln('b = ' + b);
<span>end.</span>