Программирование.
Написать задачу в Pascal ABC, которая принимает на вход числo N, а после - выводит количество простых чисел из отрезка [1, N]
Написать задачу в Pascal ABC, которая принимает на вход числo N, а после - выводит количество простых чисел из отрезка [1, N]
More Questions From This User See All
Answers & Comments
Ответ:
готово
Объяснение:
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.