Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636

Ошибка при приёме задачи

31.03.2014, 21:50. Показов 1009. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
решаю задачку с сайта интернет олимпиады.вот условие
Трикутне число — це число кружечків, які можуть бути розставлені у формі рівностороннього трикутника.
Послідовність трикутних чисел Tn для n = 0, 1, 2, ... починається так: 0, 1, 3, 6, 10, 15, 21, 28, 36, 45, 55,...
Напишіть програму, яка знаходить N-е трикутне число.

Входные данные
у єдиному рядку записане одне число N (0 ≤ N ≤109).

Выходные данные
виведіть N-е трикутне число.

Примеры
Входные данные в файле input Результат работы в файле output
1 1
5 15

вот решение, но оно зараза пишет что неправильно, ошибка выполнения.
Pascal
1
2
3
4
5
6
7
8
9
10
var n,i,j:longint;
begin
read(n);
 j:=0;
 for i:=1 to n do
  begin
   j:=j+i;
  end;
 Writeln(j);
end.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.03.2014, 21:50
Ответы с готовыми решениями:

Ошибка при приёме данных
На скрине ошибка, из за чего она и как исправить? Делал чат и при отправке сообщения такая ошибка

Тесты при приёме на работу
Какие примерно тестовые задания могут дать по ООП и по самому синтаксису языка PHP?

Задание при приёме на работу
Всем привет! Мне дали на собеседовании задание по access. Я его до этого не изучал, а сейчас сижу и усиленно читаю мануалы для...

8
31.03.2014, 23:21
 Комментарий модератора 
mish_k98, официальные языки форума - русский и английский. Поместите в теме перевод.
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
01.04.2014, 09:17
Формула суммы первых N членов арифметической прогрессии при а1=0, d=1
Pascal
1
2
3
4
5
6
var n,j:longint;
begin
read(n);
j:=(n-1)*n div 2;
Writeln(j);
end.
Добавлено через 1 минуту
А у вас n<=10^9, а не 109, и цикл до 1000000000 очень долго будет считать.
0
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636
01.04.2014, 20:29  [ТС]
я понял.но опять не приняло.посмотрите примеры, там пишет, что пятое число-это 15, а не 10 как выдаёт программма и т.д.как тогда изменить формулу?

Добавлено через 2 минуты
поменял формулу на j:=n*(n+1) div 2;
ответ выдаёт правильный, но на сайте таки пишет ошибку
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
01.04.2014, 20:46
Цитата Сообщение от mish_k98 Посмотреть сообщение
но на сайте таки пишет ошибку
Цитата Сообщение от mish_k98 Посмотреть сообщение
0, 1, 3, 6, 10, 15
Здесь 15 это 6 число, под это и делал.
0
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636
01.04.2014, 20:51  [ТС]
да.но в примере так.короче оно и так и так не хочет принимать.пишет что неправилтный ответ
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
01.04.2014, 20:51
Вот так пятое число будет 15
Pascal
1
j:=(2+(n-1))*n div 2;
но первое будет не 0, а 1. Разбирайтесь сами.
0
164 / 49 / 27
Регистрация: 04.06.2013
Сообщений: 636
01.04.2014, 21:01  [ТС]
я понимаю.короче я делаю вывод, что это сбой в системе проверки.но таже проблема с ещё однй задачей.

Задано натуральное число N. Напишите программу, которая определяет количество натуральных чисел, которые не больше N и не делятся ни на одно из чисел 2, 3, 5.

Входные данные
число N (1 ≤ N ≤ 1000000000).

выходные данные
найденное число.


Примеры
Входные данные в файле input Результат работы в файле output
10 2

Pascal
1
2
3
4
5
6
7
8
9
10
11
var a,n,i:longint;
begin
read(n);
a:=0;
 for i:=1 to n do
  begin
   if (i mod 2<>0)and(i mod 3 <> 0)and(i mod 5 <>0)
    then a:=a+1;
  end;
 writeln(a);
 end.
0
02.04.2014, 05:02
 Комментарий модератора 
mish_k98, одна тема - одна задача.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.04.2014, 05:02
Помогаю со студенческими работами здесь

Зависает при приёме больших данных
не могу разобраться что я делаю с потоком входящих данных не так, при входе большого колличества данных цикл уходит на второй круг и...

Зависает клиент при приёме от сервера
С начало сделал посыл данных только от клиента серверу..там всё хорошо далее начал делать обратный, от сервера вроде как всё хорошо...

WinSocket теряет данные при приёме
Не могу понять причину поведение при приёме данных. Страница скачивается, но практически каждый раз не до конца. Если выставить огромный...

Как не засорять память при приёме датаграм
В общем, такое дело, решил посмотреть, сколько моя дорогая программа жрёт памяти и оказалось, что со временем, мягко говоря, съест много. ...

Насколько влияет возраст при приёме на работу?
Мне сейчас 24 года, лет с 11 дружил со сферой IT (бабушкин программист), однако, профессионально программированием решил заняться только...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Символьное дифференцирование
igorrr37 13.02.2026
/ * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .
Камера 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. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru