Создать программу, которая выводит на экран простые числа в диапазоне от 2 до 1000. (Число называется простым, если оно делится только на 1 и на само себя
10-11 класс
|
без остатка; причем числа 1 и 2 простыми не считаются).
var a, i:integer;
procedure del(i:integer; var a:integer);
var j :integer;
begin
a:=0;
for j:=1 to i do
if i mod j = 0 then inc (a)
end;
begin
writeln;
for i:=2 to 1000 do
begin
del(i,a);
if a=2 then write (i, ' ');
end;
end.
а почему у тебя 2 это не простое число?
Другие вопросы из категории
1)У кати есть доступ в интернет по высокоскоростному одностороннему радиоканалу , обеспечивающему скорость получения информации 2^20 бит в секунду. У сергея нет скоростного доступа в интернет , но есть возможность получать информацию от кати по телефонному каналу со средней скоростью 2^13бит в сек. Сергей договорился с Катей что она скачает для него данные обьемом 9 мбайт по высокоскоростному каналу и ретранслирует их Сергею по низскоскор. к-лу. Компьютер Кати может начать ретрансляцию не раньше чем им будут получены 1024 Кбайт этих данных. Каков минимальный промежуток времени ( в секундах) с момента начала скачивания Катей данных до полного получения их Сергеем?В ответе укажите только число.
в)подсчитывает количество вхождений заданного символа.
нуля в случае одноразрядного представления). Если закодировать последовательность букв ПАПРИКА таким способом и результат записать шестнадцатеричным кодом, то получится
1) Е634
2) А1В2
3) А45412А
4) 3430124я
Читайте также
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
подсчитать количество отрицательных элементов
сумму положительных элементов
ВЫВОДИТ НА ЭКРАН НОМЕРА ВСЕХ ЭЛЕМЕНТОВ, ЗНАЧЕНИЯ КОТОРЫХ =0
2)Составьте программу которая выводит на экран числа кратные 2 и 13 в диапазоне от 2 до 150
3)Дано вещественное число А и целое число N(>0).Испульзуя один цикл вывести все целые степени числа А от 1 до N
------------------------ОПЕРАТОР WHILE
31, мм - целое число из диапазона от 1 до 12, а гг - целое число из диапазона от 1 до 2020 (если какая-то часть формата нарушена, то данная подстрока в качестве даты не рассматривается.) Заменить каждую дату сообщения на дату следующего дня. Написать программу на Паскале. Сроооооооооооооочнооо. Пооожалуйста.....