записать программу формирования и выделения n элементов паскаль n<=1000 первые n простых чисел
5-9 класс
|
program z;
var n,i,j:integer;
f:boolean;
begin
writeln('введите n');
for i:=1 to n do
begin
f:=true;
for j:=2 to i div 2 do
if i mod j=0 then
begin
f:=false;
break
end;
if f then write(i,' ');
end;
end.
Другие вопросы из категории
ПОЖАЛУУЙСТА ПОМОГИТЕ
-Прибавьте к ним 25.
-К ответу прибавьте ещё 125.
-Из ответа вычтите 36
-Из ответа вычтите эти задуманные числа.
-Ответ умножьте на 5.
-ответ разделите на 2.
ПОжалуйста помогите. Мне срочно надо
Заранее спасибо.
спорта. Майкл предпочитает баскетбол и играет лучше, чем американец. Израильтянин Саймон играет лучше теннисиста. Игрок в крикет занял первое место. Кто является австралийцем? Каким спортом увлекается Ричард?
Читайте также
содержит N первых элементов последовательности чисел Фибоначчи
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)
1) найти и вывести сумму его цифр
2) сформировать число, в котором поменяются разряды (допустим будет число 13, нужно сделать, что бы было 31 и т.п.)
II В паскале с помощью генератора случайных чисел получить трехзначное число и определить, является ли оно полимером (например 121 - является, 123 - нет)
отрицательных элементов нет, то сообщить об этом)
p.s. В паскале
1-й равен 500
2-й равен целой части квадратного корня из предыдущего элемента
3-й равен целой части от деления суммы индексов текущего элемента на 3 ( если она равна 0, то соответствующий элемент массива делать равным 1).
в Pascal