Отсутствует жесткий диск, или откуда у тебя там система загружалась.
Var b:array[1..100] of integer;
i, sum, a:integer;
Begin
read(a);
for i:= 1 to 100 do begin
b[i]:= random(100);
if b[i] < a then
sum:= sum + b[i];
end;
writeln(sum);
End.
незнаю что ты имела ввиду под словом модель но код будет такой
8364 простых числа....
denisx.ru/tech/prime-number/prime-numbers/first
по ссылке таблица до 100000.
копируем от 10007 до конца и в ексель. 836 столбиков умножаем на 10 и плюс 3. 8363 ошибся на один
Правильный ответ у меня вышло Г