|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.12.2012, 21:05 | #1 |
Пользователь
Регистрация: 08.09.2012
Сообщений: 41
|
Паскаль. Процедуры и функции.
Помогите, пожалуйста, ввести функцию. Код к задаче готов уже.
3.Составить программу для проверки, можно ли заданное натуральное число N представить в виде произведения двух простых чисел. program number; var N,a,b:longint; begin writeln ('Введите натуральное число'); readln(N); Writeln('Введите первое число'); readln(a); Writeln('Введите второе число'); readln(b); if a mod a=0 then if a mod 1=0 then if b mod b=0 then if b mod 1=0 then if N=a*b then writeln('Заданное натуральное число можно представить в виде произведения двух простых чисел a=',a, ' и b=',b, ' ') else writeln('Заданное натуральное число нельзя представить в виде произведения двух чисел a=',a, ' и b=',b, ' ') end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Процедуры и функции Паскаль | GamBitFRK | Помощь студентам | 3 | 15.02.2012 23:06 |
Паскаль процедуры и функции | Fromki | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 19.03.2011 21:17 |
паскаль. процедуры и функции | Антон Лысенко | Помощь студентам | 4 | 23.02.2011 23:17 |
Паскаль.Процедуры и Функции. | radon228 | Помощь студентам | 5 | 22.05.2010 00:25 |