Программирование. Написать задачу в Pascal ABC, которая принимает ** вход числo N, а...

Question

Программирование. Написать задачу в Pascal ABC, которая принимает на вход числo N, а после - выводит количество простых чисел из отрезка [1, N]

---

Answer 1

Ответ:

готово

Объяснение:

program prostye;

var

 n, i, j, s, k: integer;

begin

 Write('введите число: ');

 ReadLn(n);

 for i := 1 to n do

 begin

   s := 0;

   for j := 1 to i div 2 do

     if i mod j = 0 then inc(s);

   if s = 1 then inc(k);

 end;

 WriteLn('Количество простых чисел от 1 до ', n, ' равно ', k);

end.