Var
number: integer;
sum: integer;
begin
repeat
write('number = ');
readln(number);
sum := sum + number;
until number = 1;
writeln('Сумма = ', sum);
end.
Ответ:
5 бит
Объяснение:
Воспользуемся формулой Хартли:
N - количество вариантов, т.е. N=4*8=32 варианта
бит
Ответ 28
логично же
<span>for i:=1 to 28 do (пробелы нужны, иначе не скомпилируется)
</span>для i от 1 до 28 т.е
i:=1 -> выполняется тело
<span>i:=2 -> выполняется тело
</span><span>i:=3 -> выполняется тело
</span>...
<span>i:=28 -> выполняется тело</span>
Var a:array[1..100] of integer;
n:integer;
begin
read(n);
for I:1 to n do
begin
a[i]:=0;
end;
end.