Program z1;
var a,n:longint;
c:real;
begin
writeln('Введите N=');
read(n);
a:=2;
c:=power (a,n);
writeln(c);
end.
И папка, и файл находятся на компьютере и имеют свой значок. Также любые манипуляции с папкой влияют и на файл в ней, и на папку. Они связаны.
N=256 I=8 бит(1 символ)
информационый объем равен 1024*8=8192 бита
For i in range(1, 100):
if i*i % 13 == 0:
print i
Program n1;
var
i,n,x:integer;
begin
n:=0;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if x>n then n:=x;
end;
writeln(n);
<span>end.
</span>program n1;
var
i,n,x:integer;
begin
n:=32767;
for i:=1 to 9 do begin
writeln('Введите число'); readln(x);
if (x<n) and (x mod 2=0) then n:=x;
end;
writeln(n);
end.<span>
</span>