{a, b - границы интервала чисел;
l - проверяемые числа;
del - делители;
kd - количество делителей;
k - количество простых чисел}
var a, b, k, l, kd, del : integer;
begin
writeln('a='); readln(a); {вводим границы интервала чисел}
writeln('b='); readln(b);
k:=0;
for l:=a to b do
begin
kd:=0; {алгоритм поиска простых чисел}
for del:=1 to l do
if l mod del=0 then inc(kd);
If kd=2 then write(l:5);
end;
end.
Другие языки программирования и технологии
Есть программу выполнения задачи в Паскале, нужны объяснения, комментарии к каждой строчке программы, а то не все понятно
согласен с предыдущим если и этого мало то вызывайте бригаду спецов в белых халатах для себя
в программе все описано, что не понятно?
//Идут разъяснения переменных и так как они заключены в {}, то к работе программы не имеют отношения, а нужны лишь для вас:
{a, b - границы интервала чисел;
l - проверяемые числа;
del - делители;
kd - количество делителей;
k - количество простых чисел}
//Объявляем 6 переменных целочисленного типа:
var a, b, k, l, kd, del : integer;
//начинаем программу:
begin
//запрашиваем ввод "а". И ждем введной целого числа, которое тут же сохраним в переменной "a":
writeln('a='); readln(a); {вводим границы интервала чисел}
//запрашиваем ввод "b". И ждем введной целого числа, которое тут же сохраним в переменной "b":
writeln('b='); readln(b);
//заносим число 0 в переменную "k", чтобы... а просто так, она все равно потом нигде не используется Oo
k:=0;
//Начинаем цикл. Программа будет его выполнять пока в переменной "l" число от "a" до "b". Каждое выполнение цикла (итерация) увеличивает "l" на единицу и приближает ее значение к "b":
for l:=a to b do
//начинаем цикл:
begin
//Обнуляем переменную "kd":
kd:=0; {алгоритм поиска простых чисел}
//Начинаем новый цикл, в котором уже переменная "del" изменяется от единицы до значения переменной "l":
for del:=1 to l do
//Условие. Если значение переменной "l" делится на значение переменной "del" без остатка, то увеличиваем значение переменной "kd" на единицу:
if l mod del=0 then inc(kd);
//Условие. Если в переменной "kd" сейчас записана двойка, то выводим значение переменой "l":
If kd=2 then write(l:5);
//Заканчиваем цикл:
end;
//Заканчиваем программу:
end.
{a, b - границы интервала чисел;
l - проверяемые числа;
del - делители;
kd - количество делителей;
k - количество простых чисел}
//Объявляем 6 переменных целочисленного типа:
var a, b, k, l, kd, del : integer;
//начинаем программу:
begin
//запрашиваем ввод "а". И ждем введной целого числа, которое тут же сохраним в переменной "a":
writeln('a='); readln(a); {вводим границы интервала чисел}
//запрашиваем ввод "b". И ждем введной целого числа, которое тут же сохраним в переменной "b":
writeln('b='); readln(b);
//заносим число 0 в переменную "k", чтобы... а просто так, она все равно потом нигде не используется Oo
k:=0;
//Начинаем цикл. Программа будет его выполнять пока в переменной "l" число от "a" до "b". Каждое выполнение цикла (итерация) увеличивает "l" на единицу и приближает ее значение к "b":
for l:=a to b do
//начинаем цикл:
begin
//Обнуляем переменную "kd":
kd:=0; {алгоритм поиска простых чисел}
//Начинаем новый цикл, в котором уже переменная "del" изменяется от единицы до значения переменной "l":
for del:=1 to l do
//Условие. Если значение переменной "l" делится на значение переменной "del" без остатка, то увеличиваем значение переменной "kd" на единицу:
if l mod del=0 then inc(kd);
//Условие. Если в переменной "kd" сейчас записана двойка, то выводим значение переменой "l":
If kd=2 then write(l:5);
//Заканчиваем цикл:
end;
//Заканчиваем программу:
end.
Василий Вдовкин
Большой спасибо!!!
это то, что как раз надо было
для того, кто в паскале вообще не смыслит..
это то, что как раз надо было
для того, кто в паскале вообще не смыслит..
Похожие вопросы
- Кто может помочь?Нужны комментарии к каждой строчке программы...Помогите пожалуйста! оч нужно!!!
- задача в паскале! нужны только объяснения!!!
- задача на паскале нужна помощь
- Задача на паскаль.нужна помощь
- Напишите комментарии к каждой строчке
- Мне завтра рассказывать программы по турбо паскаль,помогите разьяснить задачи по каждой строчке
- Помогите с помощью однострочных комментариев объясните программу каждую строчку. Кому не сложно :D Заранее спасибо
- Пожалуйста, объясните каждую строчку действий в паскале:
- Пожалуйста, объясните каждую строчку действий в паскале:
- Составьте программу на языке Паскаль! Нужна программа по переводу чисел из десятичной системы счисления в любую другую.
If kd=2 then write(l:5);
вот конкретно эти две строчки непонятны
и что за оператор inc?