Дано: решение:
N-128 N=2^i
2^7=2^i
i-? 7=i
ответ: 7бит
Var
a,c:integer;
b:real;
begin
readln(a,c);
b:=sqrt(c*c-a*a);
writeln('Sabc ',a*b/2);
end.
По протоколу ftp.File Transfer (букв. « передачи файлов») или просто — сетевой , передачи файлов в компьютерных сетях.
1) Семь
2) Три
Решение могу записать в комментарии, если нужно
Будем считать, что (10) - это кол-во элементов массива. Тогда решение такое:
var
A: array[1..10] of integer;
k, i: integer;
begin
for i := 1 to 10 do
begin
writeln('Введите числа массива:');
readln(A[i]);
if A[i] > 10
then k := k + 1;
end;
writeln('Количество элементов, больших 10 - ', k);
end.