Помогите разобрать програму на паскале

konstantin.shef · 02.10.2012, 15:14

Здраствуйте, погите пожалуйста разобрать програму "Дана непустая последовательность натуральных чисел за которой следует 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.

Vladimir_S · 02.10.2012, 15:27

Цитата:

Сообщение от konstantin.shef

Здраствуйте, погите пожалуйста разобрать програму "Дана непустая последовательность натуральных чисел за которой следует 0. Вычеслить сумму тех, из их порядковый номер которых простое число."

Я же Вам ответил здесь. Не надо плодить темы!

02.10.2012, 15:14	#1 (permalink)
konstantin.shef Новичок Регистрация: 25.09.2012 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите разобрать програму на паскале Здраствуйте, погите пожалуйста разобрать програму "Дана непустая последовательность натуральных чисел за которой следует 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.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

02.10.2012, 15:14
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Информативные ответы вы можете найти в схожих обсуждениях Помогите с программой на Паскале Создайте програму с файлами Помогите в паскале

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