1 бит-8 байт,то есть 64 бит-8 байт
интервал записывается как двойное условие (в скобках через and или or)
if (a < 4.2) or (a > 8.4) then power(a, 3);
аналогично для других переменных.
Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do
begin readln(a[i]);
end;
for i:=1 to 10 do
begin
for j:=i+1 to 10 do
begin
if a[i]=a[j] then ans:=ans+1;
end;
end;
if ans>0 then writeln('есть')
else writeln('нет');
end.<span> </span>
Чтение , так как читаешь усваиваешь информацию , создание , ты берёшь другие знания , чтобы создать что то новое