решите задачу в паскале наити количество простых чисел из отрезка АВ
5-9 класс
|
var c,a,b,i,j,l:integer;
begin
cls;
write('Введите через пробел отрезок');
read(a,b);
for i:=a to b+1 do
begin
j:=2;
l:=round(sqrt(i));
while (i mod j <> 0) and (j <= l) do
begin
inc(j);
end;
if (j > l) then
begin
write(c,' ');
c:=i;
end;
end;
end.
Другие вопросы из категории
Что будет если конечное значение счетчика будет меньше начального?
Что происходит с циклом если значение шага отрицательно?
На компакт-диске 600 Мбайт размещен фотоальбом. Каждое фото занимает 500 Кбайт.
Сколько времени нужно на просмотр всех фотографий если на одну тратить 6 сек?
С решением пожалуйста)
Читайте также
Найти количество отрицательных чисел из 20 случайных
использовать for и random
1)
Дан массив случайных чисел (количество элементов
вводите с клавиатуры). Найти произведение всех элементов массива.
кратна 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
количества трехзначных чисел, у которых сумма цифр является чётным числом.
ОЧЕНЬ СРОЧНО!!!
оканчивающихся на 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 4.
Пример работы программы:
Входные данные Выходные данные
14 168
24
144
22
12
0