Дан интервал натуральных чисел от n до м. определить все простые числа в этом интервалепаскаль авс)

program z1;

uses  crt;

var  n,m,kd,i,j,s:   integer;

begin  repeat  write('n='); readln(n);

write('m=');   readln(m);

until  (n< m);   for  i: =n  to  m  do     

begin     

kd: =0;    

for  j: =2to  i  div2do         

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

if  kd=0then       

  begin       

  write(i,' '); inc(s);        

end;    

end;

writeln;

writeln('всего ',s);   end.

Код на C++:

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

   setlocale(LC_ALL, "rus");

   srand(time(NULL));

   int rows = 30;

   int chairs = 0;

   for (int i = 1, count_of_chairs = 20; i <= 30; i++, count_of_chairs += 2)

   {

       chairs += count_of_chairs;

   }

   cout << chairs << endl;

   return 0;

};

Код на Python:

rows = 30

chairs = 0

count_of_chairs = 20

for i in range(1, 31, 1):

   chairs += count_of_chairs

   count_of_chairs += 2

print(chairs)

Объяснение:

//сделал лугачев кирилл //специально для //все данные вводятся с клавиатуры program sravnenie; var      a, b: integer; // стороны 1-ого прямоугольника  d, c: integer; // стороны 2-ого прямоугольника  s1, s2: integer; // площадь  buf: integer; // если площадь 1-ого будет меньше 2-ого                                      //поменяем местами,что бы избавиться от минуса  razn: integer; // разница 2-ух площадей begin      write('введите стороны 1-ого прямоугольника: ');   readln(a, b);     write('введите стороны 2-ого прямоугольника: ');   readln(d, c);       s1 : = a * b; //площадь 1-ого  s2 : = d * c; //площадь 2-ого      if s1 < s2 then    begin    buf : = s1;     s1 : = s2;     s2 : = buf;   end;       razn : = s1 - s2;         writeln('площадь 1-ого больше площади 2-ого в - ',razn, ' раз');     end.