<span>N=A+B+C-N
</span>Если N=A+B, то N=A+B+C-N=A+B+C-С=A+B, следовательно N=C
<span>N=A
IF N > В THEN N = В (это условие надо нарушить A<B)
IF N < C THEN N = C </span>(это условие надо сделать A<С)
A<B и A<С
<span>
Ответ: </span><span>в) А < В и А < С</span><span>
</span>
только такие значения как true или false могут принимать такие переменные.
Program Maslovaalisa;
const n=7;
var last: array[1..n] of integer;
var new: array[1..n] of integer;
i: integer;
begin
writeln('********************************');
for i:=1 to n do
begin
writeln('Введите температуру за ',i,'-й день недели: ');
write(' - в прошлом году ');readln(last[i]);
write(' - в этом году ');readln(new[i]);
end;
writeln('*** alphaues is thinking... ***');
writeln();
for i:=1 to n do
begin
if last[i] > new[i] then
writeln('В ',i,'-й день недели в прошлом году было теплее, чем в этом. Бр-р-р...')
else
if last[i] < new[i] then
writeln('В ',i,'-й день недели в прошлом году было холоднее, чем в этом. Уф-ф-ф...')
else
writeln('Удивительно! В ',i,'-й день недели в прошлом году была такая же температура, как в этом!');
writeln('********************************');
end;
end.
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
1)
begin
var x := ReadReal('x =');
Writeln(abs(x**2 - x**3) - 7*x/(x**3 - 15*x));
end.
2)
begin
var x := ReadReal('x =');
if (x <= 0) then
Writeln(0)
else
if (x <= 1) then
Writeln(x)
else
Writeln(x**4);
end.