begin clrscr; write('Введите число x = '); readln(x); write('Введите число y = '); readln(y); writeln; if x <> y then begin if x<y then writeln ( ((x+y)/2):0:3,' ', y) else writeln ( x,' ',((x+y)/2):0:3); end else writeln('y не должен равняться x'); readln; end.
# Код на ruby 2.2.3p173 def zadanie(numbers) p "***" s = 0 numbers.each{|n| s += n} p [s, numbers] numbers = numbers.sort
while s % 3 != 0 do numbers.each{|n| if (s-n) % 3 == 0 s -= n numbers.delete(n) p n break end } if s % 3 != 0 n = numbers.min s -= n numbers.delete(n) p n end p numbers end
return numbers.reverse end
# # Примеры применения p zadanie([7, 2, 3, 1, 5, 9, 4, 7])
Uses crt;
Var x,y: real;
begin clrscr;
write('Введите число x = ');
readln(x);
write('Введите число y = ');
readln(y);
writeln;
if x <> y then
begin
if x<y then writeln ( ((x+y)/2):0:3,' ', y)
else writeln ( x,' ',((x+y)/2):0:3);
end
else
writeln('y не должен равняться x');
readln;
end.