Другие языки программирования и технологии

Есть программу выполнения задачи в Паскале, нужны объяснения, комментарии к каждой строчке программы, а то не все понятно

{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.
согласен с предыдущим если и этого мало то вызывайте бригаду спецов в белых халатах для себя
Kurilov Ruslan
Kurilov Ruslan
6 517
Лучший ответ
в программе все описано, что не понятно?
Sayat Seitpekuly
Sayat Seitpekuly
95 951
Василий Вдовкин if l mod del=0 then inc(kd);
If kd=2 then write(l:5);

вот конкретно эти две строчки непонятны
и что за оператор inc?
//Идут разъяснения переменных и так как они заключены в {}, то к работе программы не имеют отношения, а нужны лишь для вас:
{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.
Эдмон Гагинян
Эдмон Гагинян
13 080
Василий Вдовкин Большой спасибо!!!
это то, что как раз надо было
для того, кто в паскале вообще не смыслит..