Ответ:
У меня получилось вот так.
Объяснение:
1000101₂+1111010₂+110111₂=11110<span>110</span>₂
Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.
Пример:
x = 15
y = 5
1) for R:=10 downto 1 do
writeln(R);
2) Делается аналогично, только используется цикл to и в теле цикла будет 2 оператора