Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Закрытая тема
 
Опции темы Опции просмотра
Старый 02.10.2012, 15:14   #1 (permalink)
konstantin.shef
Новичок
 
Регистрация: 25.09.2012
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Post Помогите разобрать програму на паскале

Здраствуйте, погите пожалуйста разобрать програму "Дана непустая последовательность натуральных чисел за которой следует 0. Вычеслить сумму тех, из их порядковый номер которых простое число."
PHP код:
VAR
 
i,A,S:Integer;
 
q:Boolean;

Function 
Test(J:Integer):Boolean;
Var
 
m:Integer;
 
b:Boolean;
begin
 m
:=(J div 2)+1;
 
b:=true;
 
Repeat
  Dec
(m);
  If (
J mod m)=0 then b:=false;
 
Until (b=false) or (m=2);
 
Test:=b;
end;

Begin
 i
:=0;
 
S:=0;
 
Writeln('Numbers:');
 
Repeat
  q
:=false;
  
Inc(i);
  
Write('Next number ');
  If (
i<4) or ((i>=4) and (Test(i))) then q:=true;
  If 
q then write('(prime position ',i,') ');
  
Readln(A);
  If (
A>0) and q then Inc(S,A);
 
Until A=0;
 
Writeln;
 
Writeln('Sum= ',S);
 
Readln
End

konstantin.shef вне форума  

Старый 02.10.2012, 15:14
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Информативные ответы вы можете найти в схожих обсуждениях

Помогите с программой на Паскале
Создайте програму с файлами
Помогите в паскале

Старый 02.10.2012, 15:27   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,360
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от konstantin.shef Посмотреть сообщение
Здраствуйте, погите пожалуйста разобрать програму "Дана непустая последовательность натуральных чисел за которой следует 0. Вычеслить сумму тех, из их порядковый номер которых простое число."
Я же Вам ответил здесь. Не надо плодить темы!
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Закрытая тема

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 06:51.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.