Mod - это остаток от числа. Значит, 9 mod 2 = 1
12>10,но 12<12 неверно, значит
n:=12-1
что равно 11
I = 20 байт = 20 * 8 = 160 бит
n = 160/16 = 10
Получается слово занимает 10 символов (Не забываем про пробел и запятую ⇒ 10-2=8 символов - из этого кол-ва состоит слово)
Ответ: ласточка
Var
a:array[1..10] of integer;
b,i,k:integer;
begin
Randomize;
Write('Введите количество элементов в массиве: ');
for i:=1 to 10 do
begin
a[i]:=Random(21)-10;
Write(a[i],' ')
end;
Writeln;
Write('Какое число искать? ');
Readln(b);
k:=0;
for i:=1 to 10 do
if a[i]=b then Inc(k);
Writeln('Число встречается ',k,' раз')
end.
Подробнее - на Znanija.com -
znanija.com/task/29303328#readmore
Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>
