Var n,i:integer;
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until n<i
end.
На фото номер 17
а)110111
б)10100
в)1110007
номер 16
Program gt;
var i:integer;
begin
writeln('Заголовка');
i:=1;
while i<=15 do
begin
writeln(i*i*i);
i:=i+1;
end;
end.
699 в десятичной равно 1010111011 в двоичной