Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
lowHertz
0 / 0 / 0
Регистрация: 30.09.2016
Сообщений: 25
1

Чем можно заменить?

13.12.2016, 16:17. Просмотров 572. Ответов 1
Метки нет (Все метки)

Дано натуральное число n. Получить S – сумму тех чисел вида i3-3in2+n ,(i=1,2,...,n), которые являются утроенными нечетны-ми. Если таких чисел нет – считать сумму равной 0.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var
  i,n,s: integer;
  x: integer;
begin
  write('N = ');
  readln(N);
  for I:=1 to N do
  begin
    X:=I*I*I-3*I*N*N+N;
    if (frac(x/3)=0) and(odd(round(x div 3))) then
    begin
      S:=S+X;
    end;
  end;
  Writeln(S);
  Readln;
end.
Можно ли сделать цикл без odd,round и frac?

Добавлено через 14 минут
хотя нет, не надо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.12.2016, 16:17
Ответы с готовыми решениями:

Чем можно заменить модуль graph
в паскале абс модуль graph не читается,чем его можно заменить?

Чем можно заменить операцию нахождения времени без библиотеки Dos
Здравствуйте. Чем можно заменить операцию нахождения времени без библиотеки Dos...

Чем заменить SetColor?
Переписываю программку с турбо на абс и не знаю,как заменить SetColor.

Чем в модуле Graph заменить OutTextXY?
В турбопаскале OutTextXY,а что в паскале абц?

Массив. Найти элементы, больше, чем заданное значение, заменить их на нули
Помогите написать программу: В массиве А(100) найти элементы ,больше, чем...

1
Puporev
Модератор
54725 / 42130 / 29087
Регистрация: 18.05.2008
Сообщений: 99,449
13.12.2016, 16:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var i,n,s,x: integer;
begin
write('N = ');
readln(N);
for i:=1 to n do
 begin
  x:=abs(i*i*i-3*i*n*n+n);
  writeln(x);
  if (x mod 3=0)and((x div 3)mod 2=1) then s:=s+x;
 end;
if s=0 then write('Нужных чисел нет')
else write('S=',s);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.12.2016, 16:36

Как можно заменить random?
program mas; var a: array of integer; i,j,s,n,m: integer; begin ...

Если у вектора хотя бы один компонент меньше, чем -2, то все отрицательные компоненты заменить их квадратами
Помогите пожайлуста, буду очень признателен! бо уже неделю не магу сделать...

На что можно заменить random в данной программе?
Помогите пожалуйста...На что можно заменить random в данной программе? const ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru