Ответ:
var i : integer;
begin
for i:= 11 downto 4 do begin
writeln (i*i*i);
end;
readln;
end.
Объяснение: с downto
Ответ:
это рамка у меня получилось
Объяснение
procedure Stars(str: integer);
var
i:integer;
begin
for i:=1 to str do
write('*');
end;
1853-1856 Крымская война, в результате которой Россия потеряла острова в делать Дуная и чатсь Южной Бессарабии.
1) 1Килобайт=1024 байт
2) 1024/2=512
3)512*8=4096(бит)
Var n,m: integer;
<span>begin
</span><span> write('число: '); readln(n);
</span><span> m:=1;
</span><span> repeat
</span><span> m:=m shl 1;
</span><span> until m>=n;
</span><span> if m=n then writeln('True')
</span><span> else writeln('False')
</span><span>end.
</span><span>
</span>
