Отсутствовали 30лет всего прилетело:21-22
У зеленых детей: 0
Var a,b,c:integer; l:boolean;
begin
writeln('a, b, c:');
readln(a,b,c);
l:=(a=-b)or(a=-c)or(b=-c);
if l then writeln('Yes') else writeln('No');
end.
Пример:
<span>a, b, c:
5 8 -5
Yes</span>
5-2 1/2 = 5-5/2 = 5 (1 - 1/2) = 5 * 1/2 = 5/2 = 2 1/2
Sub aaa()
a = InputBox("A=")
b = InputBox("B=")
c = InputBox("C=")
x = InputBox("x=")
z = x ^ 2 + Abs(b * x - 3 * c) / Log(x ^ 2 + b * c + a)
Cells(1, 1) = z
End Sub