Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/5: Рейтинг темы: голосов - 5, средняя оценка - 5.00
storm1992
0 / 0 / 0
Регистрация: 15.06.2011
Сообщений: 4
1

Вывести на экран простое число

16.06.2011, 21:28. Просмотров 886. Ответов 1
Метки нет (Все метки)

помогите решить плиз
вывести на экран просто число n, k<n<10000, n-натуральное, k-предыдущее простое число от n
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2011, 21:28
Ответы с готовыми решениями:

Дано простое число. Составить функцию, которая находит следующее за ним простое число
Дано простое число. Составить функцию, которая находит следующее за ним простое...

Дано простое число. Найти следующее за ним простое число
Дано простое число. Составить программу,которая будет находить следующее за ним...

Вывести на экран следующее за заданным простое число
дано простое число n. Нужно вывести на экран следующее простое число. Например:...

Создать программу, которая найдет наименьшее число, который взаимное простое число с 60 и больше, чем введенное число
Создать программу, которая найдет наименьшее число, который взаимное простое...

Вывести на экран наибольшее четное число, если хотя бы одно такое число есть
Даны три целых числа. Вывести на экран наибольшее четное число, если хотя бы...

1
kaas
14 / 14 / 19
Регистрация: 13.12.2010
Сообщений: 76
16.06.2011, 22:22 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
uses crt;
var i,n,k,h:integer;
    Done:boolean;
begin
clrscr;
Done:=False;
write
('Vvedute prostoe chuslo: ');
readln(k);
inc(k);
repeat
begin
 for i:=1 to k do
 if k mod i=0 then h:=h+1;
 if h>2 then inc(k)
 else begin 
       Done:=true;
       end;
 h:=0;
end;
until Done;
writeln('Sledujuchee prostoe chuslo: ',k);
readkey;
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2011, 22:22

Если целое число m делится на цело на целое число n, то вывести на экран частное от деления
Если целое число m делится на цело на целое число n, то вывести на экран...

Если целое число m делиться на целое число n, то вывести на экран частное от деления
Помогите пожалуйста решить задачу. Задача: Если целое число m делиться на...

Вывести число пробелов на экран
во введенной пользователем строке найти число пробелов и заменить все пробелы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru