|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.12.2020, 09:20 | #1 |
Новичок
Джуниор
Регистрация: 09.12.2020
Сообщений: 1
|
exit code 215 (free pascal 3.2.0)
var
n,i,a:integer; factorial:longint; begin writeln ('Введите N'); readln (n); if n mod 2 = 0 then a:=n-2 else a:=n-1; factorial:=1; for i:=1 to a do factorial:=factorial*a; while a<n do begin; factorial:=factorial*a end; writeln ('factorial=',factorial); end. Программа должна рассчитывать произведение натуральных четных чисел, не превышающих N (вводимого числа). Но при вводе значения больше двух выдаёт ошибку ( при значении меньше - не выдаёт результат и виснет ). |
09.12.2020, 10:19 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Ето чо за дичь?
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
09.12.2020, 10:41 | #3 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
Неплохо бы научиться форматирование делать отступами и тэги CODE употреблять (это к ТС).
Последний раз редактировалось digitalis; 09.12.2020 в 16:00. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
exit code=106 | Irena42 | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 09.12.2018 11:56 |
Turbo Pascal/Free Pascal/PascalABC.NET как новый инструмент экстрасенсов | Biohazard333 | Свободное общение | 5 | 25.09.2016 12:25 |
Что это за ошибка при запуске Eclipse? Java was started but returned exit code=13 | SASFM | Java Мобильная разработка (Android) | 2 | 23.05.2016 17:16 |
а free pascal не читает задачи которые написаны на turbo pascal? | demonara | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.05.2009 16:28 |