Помогите в написании задач, о всемогущие!)

[Вадим Мошев]

Сообщение от Спутница

да и вряд ли после окончания школы программирование в Паскале мне понадобится

Возможно, понадобится, только это будет, возможно, Delphi. В любом случае, вы, скорей всего, учитесь программировать, составлять алгоритмы задач, а паскаль - это просто средство изучения.

[Аватар]

1.

s1:=0; s2:=1;
for i:=1 to 15 do if not Odd(i) then begin s1:=s1+i; s2:=s2*i; end;

2.

s:=0;
for i:=21 to 99 do if i mod 3 = 0 then s:=s+i;

3.

k:=0;
for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then begin k:=1; Break; end;
if k=0 then writeln('Число простое');

[Спутница]

Вот попытка третей задачи. Но выбивает ошибку, когда вводишь не простое число

Сообщение от Аватар

1.

s1:=0; s2:=1;
for i:=1 to 15 do if not Odd(i) then begin s1:=s1+i; s2:=s2*i; end;

2.

s:=0;
for i:=21 to 99 do if i mod 3 = 0 then s:=s+i;

3.

k:=0;
for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then begin k:=1; Break; end;
if k=0 then writeln('Число простое');

благодарю

[Вадим Мошев]

Спутница
На будущее, показывайте нам код не в виде скриншота, а путём копирования на форум программного кода, только оформляйте его тегом code (кнопка #)

и с этой задачей так поступите.

Но выбивает ошибку, когда вводишь не простое число

1. Какую ошибку? Номер строки укажите.
2. Иницилизируйте переменную is_simple в начале программы, попробуйте снова

[Спутница]

Сообщение от Вадим Мошев

Спутница
На будущее, показывайте нам код не в виде скриншота, а путём копирования на форум программного кода, только оформляйте его тегом code (кнопка #)

и с этой задачей так поступите.


1. Какую ошибку? Номер строки укажите.
2. Иницилизируйте переменную is_simple в начале программы, попробуйте снова

Ошибка не при компиляции, а непосредственно когда выполняешь
Инициализация тоже не помогла
Ошибка №106

[Вадим Мошев]

В следующий раз пишите название ошибки.
RTE (runTime error) 106 - это неправильный числовой формат. Что вы вводите? На какой ввод ругается программа?

[Спутница]

Сообщение от Вадим Мошев

Что вы вводите? На какой ввод ругается программа?

Например, когда ввожу 5.5. Если ввести просто 5 то никаких проблем не возникает

[Вадим Мошев]

Вот так и знал.
У вас n имеет целый тип (integer), а вы дроби вводите. Кроме того, понятие простоты числа определено только для целых чисел.
Вводите только натуральные числа.

[Спутница]

Сообщение от Вадим Мошев

Вот так и знал.
У вас n имеет целый тип (integer), а вы дроби вводите. Кроме того, понятие простоты числа определено только для целых чисел.
Вводите только натуральные числа.

я бы с радостью, но суть задания еще и в том, что преподаватель может попросить меня ввести дробь. И уже в этом случае надо чтобы на экран выбивало "Число не является простым". Видимо, через else нельзя его туда тулить

Еще возникла проблема: 8 - это ведь не простое число но когда его ввожу, то выбивает что оно простое.

[Вадим Мошев]

тогда объявите n как дробь, а в начале программы напишите:

if frac(n) <> 0 then begin
	writeLn('число не простое');
	readkey;
	exit;
end;