Я тут решил попробовать вспомнить старое, но увы не получилось всё сделать правильно, вроде код ниже правильный, но где написано перед строкой "//" это я пометил, что не знаю как там писать. Попробуй сам изменить/дописать код:
program hello;
var
n, kd, d:integer;
begin
read(n);
kd:=0;
// d:=2...[sqrt(n)];
if n mod d = 0 then
kd:=kd+1
else
// d:=2...[sqrt(n)];
begin
if kd = 0 then
writeln('выв "простое"')
else
writeln('ыв "составное"')
end;
end.
Program ugadai;
uses crt;
var
i,z,o:integer;
begin
randomize;
writeln('Введите число от 0 до 99:');
z:=random(100);
for i:= 1 to 10 do
begin
read(o);
if (o = z) then
begin
writeln('Вы угадали!!!');
break;
end else begin
if (i = 10) then begin
writeln('Жалко,но число не отгаданно.Загаданное число было ', z);
end else begin
writeln('Упс! У вас еще ',10 - i,' попопыток. Введите число:');
end;
end;
end;
<span>end.</span>
Судя по данным и диаграмме:
(3+3)/2
3-2=1
3-2=1
Соотвественно:
D2 должно равняться 1, под это условие подходит только:
1) =A1-2
Сначала нужно определить количество бит, которое требуется для сохранения одного номера. Всего 220 уникальных номеров. Количество бит вычисляется по формуле 2^n = k, где n - биты, а k - варианты, которые этими битами можно закодировать.
7 бит недостаточно для хранения 220 номеров, т.к. 2^7 = 128
8 бит достаточно, т.к. 2^8 = 256. То есть на одного спортсмена выделяется 8 бит, или 1 байт.
Всего участвовало 100 спортсменов, 100*1байт = 100байт
Это к первому вопросу:
Program n1;
Uses Crt;
Var
a: array[1..10] of integer;
i,k,max,m:integer;
Begin
for i:=1 to 10 do begin
a[i]:=random(11)+10;
write(a[i]:4);
end;
writeln;
max:=a[1];
for i:=2 to 10 do
if (max<a[i]) then max:=a[i];
k:=0;
for i:=1 to 10 do
if (max=a[i]) then k:=k+1;
writeln('Kol-vo elementov ravnih max lementu massiva: ',k);
<span>End.
Второй вопрос просто-напросто не понял.</span>