217 бит = 217/8 байт=27,125 байт = 27,125/1024 Кбайт ≈ 0.26 Кбайт
<span>var
i, k: real;
num:array[1..100] of integer;
begin
for: i := 1 to 99 do
num[i] := i;
k := 0;
i := 1;
while k < 7 do
begin
if easy(num[i])
then
k := k + 1;
i := i + 2;
end;
write(num[i-2]);
end.
Немного разобрал бред, но программа бессмысленная и проверка(if </span>easy(num[i])) мне не понятна, что это за процедура easy?
Что за массив без его описания, автор разберись с кодом, поучи синтаксис Паскаля.
Скоро выйдет, ещё не много
1.
В ячейке А4 будет число -11, именно минус одиннадцать.
2.
Формула в ячейке С2 будет =$A$4+D1
3.
Формула в ячейке С2 будет =2*$A2
<span>
См. пример в Excel</span><span> </span>
Вроде бы так... подправь если что)
uses crt;
const N=10;
var i,p:integer; a:array[1..N] of integer; {кол эл массива }
begin
p:=0;
writeln('введите исходный массив');
for i:=1 to N do {цикл по кол э}
begin
write('a[',i,']='); readln(a[i]); {ввод эл массива}
if (a[i] mod 2)=0 then p:=p+1;
end;
write('p='); writeln(p);
readln
end.