Регистрация
koblina2015
02.08.2021 20:58
Информатика
Есть ответ 👍

Это моя практическая поэтому, можете ещё написать вычисления​

242
359
Посмотреть ответы 1

Ответы на вопрос:

lisisiisissi
lisisiisissi
4,8(71 оценок)
Var q,n,i,k,h: integer; begin readln(n); h: =1; while n> 1 do   begin   k: =n div 2;   for i: =2 to k do     if n mod i=0 then h: =0;   q: =q+h;   h: =1;   readln(n);   end; writeln('простых чисел: ',q) end.

Популярно: Информатика