ПАСКАЛЬ АБС.НЕТ составьте программу вычисления суммы квадратов ПРОСТЫХ чисел из ??ромежутка [M;N]

?ромежутка [M;N]

Ответы:

Марьяна Литвинова

01-09-2018 23:38

Var x,d,m,n,s:integer;begin read(m,n); for x := m to n do begin d := 2; while (d < x) and (x mod d <> 0) do d := d + 1; if x = d then s := s + sqr(x); end; write(s)end.

Также наши пользователи интересуются:

В первом бидоне молока больше в 3 раза чем во втором. Если из первого бидона перели?Найти в интерннте или в инцеклопедии непонятные слова по математике узнать что он

Картинка с текстом вопроса от пользователя КРИСТИНА ИВАНЕНКО

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «ПАСКАЛЬ АБС.НЕТ составьте программу вычисления суммы квадратов ПРОСТЫХ чисел из ?» от пользователя КРИСТИНА ИВАНЕНКО в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!