в чем ошибка?

@ChameleoN · Регистрация: 20.11.2010

Студворк — интернет-сервис помощи студентам

Программа, которая почему-то не работает

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var : i,z,n,sum,sum2 : integer;
per,vtor : boolean;
n :=13; z :=31;
sum := 0;
begin
for i := 1 to n-1 do
if n mod i = 0 then
sum := sum +i;
if n = sum then
per := true;
sum2 := 0;
for i := 1 to z-1 do
if z mod i = 0 then
sum2 := sum2 +i;
if z = sum2 then
vtor := true;
if per and vtor then
writeln(n ,'- svreh prostoe');
readln
end.

вопрос: ПОЧЕМУ она не работает?

@nonamez123 · 26.11.2010, 15:36

1) нет выравнивания
2) после var нет :
3) n :=13; z :=31;
sum := 0; должны быть под бегином или вообще быть другими. Если же ты им хочешь присвоить числа, то занеси в const или же снеси под бегин. В зависимости от того, что творишь с ними

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var  i,z,n,sum,sum2 : integer;
per,vtor : boolean;
 
begin
n :=13; z :=31;
sum := 0;
for i := 1 to n-1 do
if n mod i = 0 then
sum := sum +i;
if n = sum then
per := true;
sum2 := 0;
for i := 1 to z-1 do
if z mod i = 0 then
sum2 := sum2 +i;
if z = sum2 then
vtor := true;
if per and vtor then
writeln(n ,'- svreh prostoe');
readln;
end.

рабочий вариант выше, но что он должен считать я не знаю

@ChameleoN · 26.11.2010, 15:44 **[ТС]**

да я там опечатался, там begin идет после per,vtor : boolean;
всеравно не работает

@nonamez123 · 26.11.2010, 15:57

то что я дал, всё норм. Теперь ты определись- оно не комбинируется или же не считает? Если второе, то задание хотя бо назови, если первое то во выше код

@ChameleoN · 26.11.2010, 15:59 **[ТС]**

не считает. Надо выяснить, является ли число сверхпростым. Я дал отрывок из кода, вот полный:

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
25
26
27
28
29
30
31
32
33
uses crt;
var
s,k:string;
n,i,l,z,sum2,sum:integer;
per,vtor : boolean;
begin
clrscr;
readln(n);
str(n,s);
sum :=0;
sum2 :=0;
k:='';
for i:=length(s) downto 1 do
begin
k:=k+s[i];
end;
val(k,z,l);
writeln(n,' ',z);
for i := 1 to n-1 do
if n mod i = 0 then
sum := sum +i;
if n = sum then
begin
per := true;
for i := 1 to z-1 do
if z mod i = 0 then
sum2 := sum2 +i;
if z = sum2 then
vtor := true;
if per and vtor then
writeln(n ,'- svreh prostoe');
readln
end.

@nonamez123 · 26.11.2010, 16:04

что есть сверх простое число?с математикой у меня не очень, но попробую щас написать

@ChameleoN · 26.11.2010, 16:07 **[ТС]**

Сверх простое число- число которое делится только на себя и 1 так же, как и его перевертыш(типа 13-31, 11-11, 2-2 и т.д.) Только я знаю алгоритм, он у меня в программе написан, мне нужно только понять ошибку, почему код не работает

@nonamez123 · 26.11.2010, 16:10

Сообщение от ChameleoN

Сверх простое число- число которое делится только на себя и 1 так же, как и его перевертыш(типа 13-31, 11-11, 2-2 и т.д.) Только я знаю алгоритм, он у меня в программе написан, мне нужно только понять ошибку, почему код не работает

Не по теме:

у меня последние 2 дня вот такой заход только и есть, то перменную не так, то +1-вообще хрень полная.

попробуй вот тут добавить

Pascal
1
2
if per and vtor then
writeln(n ,'- svreh prostoe')

добавить else

@ChameleoN · 26.11.2010, 16:12 **[ТС]**

Да я уже 2 чса в код гляжу, не нахожу ошибку... Может это просто компилятор на меня обиделся?

@nonamez123 · 26.11.2010, 16:35

Не по теме:

иди ман выпей пива, покури.А то я на паре тоже сижу, нефига не бычу, домой прихожу и за пару сек.

Добавлено через 10 минут
мммм

Pascal
1
if per [B]and[/B] vtor then

может ты не правильно ввель, введь если and, то оба должны быть тру или фолсе, попробуй сделай 2 отдельных ифа для первого и второго

@Dekio · 26.11.2010, 16:48

if per and vtor then
должно быть так
if (per) and (vtor) then

var : i,z,n,sum,sum2
: там быть не должно

Pascal
1
2
3
n :=13; z :=31;
sum := 0;
begin

должно быть так

Pascal
1
2
3
begin
n :=13; z :=31;
sum := 0;

после begin надо

Pascal
1
2
vtor:=true/false;
per:=true/false;

исходя из условия

@ChameleoN · 26.11.2010, 16:53 **[ТС]**

не робит( Мне и надо, чтоб оба true были

Dekio, у меня так и есть в проге, я прост неправильно скопипастил.
насчет

Pascal
1
2
vtor:=true/false;
per:=true/false;

так это ваще бред( я такого не знаю, по-крайней мере)
ничего не помогает, всё предложенное попробовал.

@nonamez123 · 26.11.2010, 16:55

скажи плиз, как перевернуть число? а то у меня получается только 13->3,1 , но не 31. Может в этом у тебя и есть ошибка? ибо если нужны оба тру, но код пустой, значит данное условие не выполняется, а на случай false у тебя нечё не выводится

@Dekio · 26.11.2010, 16:55

я только что запустил прогу с изменениями что указал.
что надо получить/вывести не имею понятия.
но это уже будет логическая ошибка в проге а не орфографическая

@ChameleoN · 26.11.2010, 16:59 **[ТС]**

Для теста :
ввести 13
должно появиться " 13 - sverh chetnoe"

Добавлено через 36 секунд

Сообщение от nonamez123

скажи плиз, как перевернуть число? а то у меня получается только 13->3,1 , но не 31. Может в этом у тебя и есть ошибка? ибо если нужны оба тру, но код пустой, значит данное условие не выполняется, а на случай false у тебя нечё не выводится

я проверял, выводит верно n и z

@Dekio · 26.11.2010, 17:12

тогда скинь "нормальную" версию исходника. все что ты отправлял с ошибками

@ChameleoN · 26.11.2010, 18:31 **[ТС]**

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
25
26
27
28
29
30
31
32
uses crt;
var
s,k:string;
n,i,l,z,sum2,sum:integer;
per,vtor : boolean;
begin
clrscr;
readln(n);
str(n,s);
sum :=0;
sum2 :=0;
k:='';
for i:=length(s) downto 1 do
begin
k:=k+s[i];
end;
val(k,z,l);
writeln(n,' ',z);
for i := 1 to n-1 do
if n mod i = 0 then
sum := sum +i;
if n = sum then
per := true;
for i := 1 to z-1 do
if z mod i = 0 then
sum2 := sum2 +i;
if z = sum2 then
vtor := true;
if per and vtor then
writeln(n ,'- svreh prostoe');
readln
end.

Программа работает, если введу однозначное число, например, 6. Не робит с 13(

Добавлено через 1 час 15 минут
Ёперный театр, во я нуб! Тут совсем другая формула нужна! моя прога ищет те, в которых сумма делителей = числу! Кофе помог...

Добавлено через 39 секунд

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
25
26
27
28
29
30
31
32
uses crt;
var
s,k:string;
n,i,l,z,sum2,sum:integer;
per,vtor : boolean;
begin
clrscr;
readln(n);
str(n,s);
sum :=0;
sum2 :=0;
k:='';
for i:=length(s) downto 1 do
begin
k:=k+s[i];
end;
val(k,z,l);
writeln(n,' ',z);
for i := 2 to n-1 do
if n mod i = 0 then
sum := sum +i;
if sum = 0 then
per := true;
for i := 2 to z-1 do
if z mod i = 0 then
sum2 := sum2 +i;
if sum2=0 then
vtor := true;
if per and vtor then
writeln(n ,'- svreh prostoe');
readln
end.

вот то,что нужно было!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	26.11.2010, 15:44 [ТС]
	да я там опечатался, там begin идет после per,vtor : boolean; всеравно не работает 0

@nonamez123 189 / 185 / 54 Регистрация: 23.10.2010 Сообщений: 1,336
	26.11.2010, 15:57
	то что я дал, всё норм. Теперь ты определись- оно не комбинируется или же не считает? Если второе, то задание хотя бо назови, если первое то во выше код 0

@nonamez123 189 / 185 / 54 Регистрация: 23.10.2010 Сообщений: 1,336
	26.11.2010, 16:04
	что есть сверх простое число?с математикой у меня не очень, но попробую щас написать 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	26.11.2010, 16:07 [ТС]
	Сверх простое число- число которое делится только на себя и 1 так же, как и его перевертыш(типа 13-31, 11-11, 2-2 и т.д.) Только я знаю алгоритм, он у меня в программе написан, мне нужно только понять ошибку, почему код не работает 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	26.11.2010, 16:12 [ТС]
	Да я уже 2 чса в код гляжу, не нахожу ошибку... Может это просто компилятор на меня обиделся? 0

@nonamez123 189 / 185 / 54 Регистрация: 23.10.2010 Сообщений: 1,336
	26.11.2010, 16:55
	скажи плиз, как перевернуть число? а то у меня получается только 13->3,1 , но не 31. Может в этом у тебя и есть ошибка? ибо если нужны оба тру, но код пустой, значит данное условие не выполняется, а на случай false у тебя нечё не выводится 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	26.11.2010, 16:55
	я только что запустил прогу с изменениями что указал. что надо получить/вывести не имею понятия. но это уже будет логическая ошибка в проге а не орфографическая 0

@Dekio Фрилансер 5845 / 1226 / 499 Регистрация: 23.11.2010 Сообщений: 3,373 Записей в блоге: 1
	26.11.2010, 17:12
	тогда скинь "нормальную" версию исходника. все что ты отправлял с ошибками 0