Program n1; var a,b,c,d,s:real; begin read(a,b,c,d); s:=(a+b+c+d)/4; if a>s then begin writeln(a); if b>s then begin write(b); if c>s then begin write(c); if d>s then begin write(d); end; end.
Заменим символы операций на более привычные (логическое сложение на сложение, логическое умножение - на умножение), но будем помнить, что все же это не арифметика, хотя и тут умножение "старше" сложения и выполняется первым. x=19+17*13+22*14 1) 17₁₀*13₁₀ 17₁₀ = 10001₂; 13₁₀=01101₂ Правила умножения поразрядно: 1*1=1, иначе 0 10001 *01101
00001 = 1₂ 2) 19₁₀+1₂ 19₁₀=10011₂ Правила сложения поразрядно: 0+0=0, иначе 1 10011 +00001
Заменим символы операций на более привычные (логическое сложение на сложение, логическое умножение - на умножение), но будем помнить, что все же это не арифметика, хотя и тут умножение "старше" сложения и выполняется первым. x=19+17*13+22*14 1) 17₁₀*13₁₀ 17₁₀ = 10001₂; 13₁₀=01101₂ Правила умножения поразрядно: 1*1=1, иначе 0 10001 *01101
00001 = 1₂ 2) 19₁₀+1₂ 19₁₀=10011₂ Правила сложения поразрядно: 0+0=0, иначе 1 10011 +00001
var a,b,c,d,s:real;
begin
read(a,b,c,d);
s:=(a+b+c+d)/4;
if a>s then
begin
writeln(a);
if b>s then
begin
write(b);
if c>s then
begin
write(c);
if d>s then
begin
write(d);
end;
end.