Пятница, 29.03.2024, 17:30
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, PASCAL26, atvrider  
Форум » Решение задач по информатике » Другие задания » цикл с параметром
цикл с параметром
DemonStownДата: Суббота, 22.05.2010, 07:35 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
парин помогите очень прошу))))) нужно решить задачу с циклом repeat короче пишу дано натур число. определить можно ли представить его в виде произведения двух простых чисел... Плизз помогите кто нить
 
ignorerДата: Суббота, 22.05.2010, 15:17 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
задачу-то я решу, а вот дублировать тему, да ещё не там, где надо, да ещё и несоблюдать все остальные правила создания новой темы, это не хорошо. за такое замечание светит. советую всё-таки читать правила, тем более, что их не много и ваши задачи мы решаем быстро и пока что бесплатно.
 
ignorerДата: Суббота, 22.05.2010, 16:43 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
вот код, как и обещал не очень долго:
Code
function prost(a : integer) : boolean;
   var b : integer;
   begin
    for b:=2 to a div 2 do
     if a mod b=0 then
     prost:=true;
   end;
   var x, y : integer;
   begin
    cls;
    read(x);
    for y:=2 to x div 2 do
     if (x mod y=0)and(prost(y)=false)and(prost(x div y)=false) then begin
      write('Можно');
      break;
     end
     else begin
      write('Нельзя');
      break;
     end;
   end.
 
Форум » Решение задач по информатике » Другие задания » цикл с параметром
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024