Var z1,z2:byte;
begin
for z1:=1 to 9 do begin
for z2:=0 to 9-z1 do begin
writeln(z1,z2,z1+z2);
end;
end;
end.
По просьбе автора задачи - вариант с 3 циклами
var x,y,z:byte;
begin
for x:=1 to 9 do begin
for y:=0 to 9 do begin
for z:=0 to 9 do begin
if (x+y=z) then writeln(x,y,z);
end;
end;
end;
end.
<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
Range(ReadInteger('a='),ReadInteger('b=')).Println
end.
</span>
Переведём 28 из 6-ой с.с. в 10-ую:
расставляем 0 под 8, а 2 под 1,
1*6^1+8*6^0=6+8=14.
Значит, получается, что наим ближайшее целое число 14-1=13.
Но с ответом я НЕ 100% уверена.. скорей всего будет 13, но может 14..
N=2^i
Находим i:
64=2^i => i = 6 бит
I=6*10*32*64=60*2^5*2^6=60*2^11 бит = 2^13*15бит=15Кбайт
