var a,b,i,d,k:integer;
begin
write ('Введите натуральные числа a и b (a<b): ');
readln (a,b);
write ('Простые числа от ',a,' до ',b,': ');
for i:=a to b do
begin
for d:=2 to i do
if i mod d = 0 then k:=k+1;
if k=1 then write(i,' ');
k:=0
end
end.
В результате элементы массива А равны
A[0] := 2 A[1] := 3 A[2] := 4 A[3] := 5 A[4] := 6
A[5] := 7 A[6] := 8 A[7] := 9 A[8] := 10 A[9] := 1
Объяснение:
Сначала задаются элементы массива с индексами от 0 до 9 равные от 1 до 10.
Затем переменной t присваивается значение первого элемента массива (с индексом 0 и равного 1).
Потом происходит сдвиг значений элементов на один влево по индексу (первый элемент с индексом 0 становится равным второму элементу с индексом 1 и т.д. до 8 элемента).
В конце последнему элементу массива с индексом 9 присваивают значение их переменной t.
for i := 0 to 9 do A[i] := i + 1;
A[0]:= 0 + 1 = 1
A[1] := 1 + 1 = 2
A[2] := 2 + 1 = 3
A[3] := 3 + 1 = 4
A[4] := 4 + 1 = 5
A[5] := 5 + 1 = 6
A[6] :=6 + 1 = 7
A[7] := 7 + 1 = 8
A[8] := 8 + 1 = 9
A[9] := 9 + 1 = 10
t := A[0];
t := 1
for i:= 1 to 9 do A[i-1] := A[i];
A[1-1] := A[1] A[0] := 2
A[2-1] := A[2] A[1] := 3
A[3-1] := A[3] A[2] := 4
A[4-1] := A[4] A[3] := 5
A[5-1] := A[5] A[4] := 6
A[6-1] := A[6] A[5] := 7
A[7-1] := A[7] A[6] := 8
A[8-1] := A[8] A[7] := 9
A[9-1] := A[9] A[8] := 10
A[9] := t;
A[9] := 1
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
const int SIZE = 20;
int Arr[SIZE] = {};
int Summa = 0;
cout << "Введите числа" << '\n';
for(int i = 0; i < SIZE; i++)
{
cin >> Arr[i];
if ((Arr[i] < 1500) && (Arr[i]>-1500)) //Проверяем числа в массиве больше,меньше 1500,-1500.
{
if (Arr[i]==0) // Проверяем встретиться ли нам 0.
{
break;//если встретился 0 то выходим из этого условия, а потом и из цикла.
}
if (Arr[i] % 5 == 0) // Проверяем числа на кратность 5. Если кратно то
{
Summa += Arr[i]; // Складываем все что кратно 5 в переменную Summa.
}
}
else //Этот else относиться к первому if где идет проверка больше,меньше 1500,-1500.
{
i--; // декремент не дает нам дальше заполнять массив покуда не введем число
// входящее в диапазон [-1500;1500].
cout << "Ваше число по модулю превышает 1500 " << endl; // оповещяем о том что введено неверное число
}
}
cout << "Сумма всех чисел, кратных 5 = " << Summa << endl;
_getch();// это просто чтобы окно не закрывалось, можно и в самом проекте это сделать.
return 0;
}
Объяснение:
begin
var (a, b) := ReadInteger2; // Считывание a и b
var simple := ArrFill(b + 1, true); // Инициализация булевого массива значением true.
// Реализация решета Ератосфена
for var i := 2 to b do
if simple[i] then
begin
var j := i * i;
while (j <= b) do
begin
simple[j] := false;
j += i;
end;
end;
// Вывод на экран найденного результата
for var i := a to b do
if (simple[i]) and (i > 1) then i.Print
end.