0 / 0 / 1
Регистрация: 17.03.2012
Сообщений: 10
1

Найти сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a<=500)

17.03.2012, 22:20. Показов 17023. Ответов 3
Метки нет (Все метки)

Помогите решить задание плизз) Ну, 3 раза уже перездавал все задачи, а учитель говорит, что неправильно.
1) Составить программу: вычисления значения функции x= квадратный корень 2a+sin модуль 3a/ 3.56 при любом значении a (3.56 тоже входит под коренЬ)
2) Дано двухзначное число определить:
Одинаковы ли его цифры.
3) Найти сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a<=500).

Добавлено через 4 минуты
Пожалуйста! срочно нужно) ну никак у меня не получается. Даже незнаю как и делать
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.03.2012, 22:20
Ответы с готовыми решениями:

Найти сумму всех целых чисел от а до 500
Плиз помогите с задачами на Паскале

Найти сумму всех целых чисел от a до 500
Найти сумму всех целых чисел от a до 500 (значение a вводится с клавиатуры; a&lt;=500)

Найти сумму всех целых чисел от 100 до 500
Найти сумму всех целых чисел от 100 до 500

Найти сумму всех целых чисел от 100 до 500
Найти: а) сумму всех целых чисел от 100 до 500;

3
110 / 110 / 100
Регистрация: 04.03.2012
Сообщений: 146
17.03.2012, 23:16 2
1)
Pascal
1
2
3
4
5
6
7
8
9
var
  a,x:real;
begin
  cls;
  write('A=');
  readln(a);
  x:=sqrt((2*a+sin(abs(3*a)))/3.56);
  writeln('X=',x:1:2);
end.
2)
Pascal
1
2
3
4
5
6
7
8
9
10
var
  a:byte;
begin
  cls;
  write('Введи двузначное число: ');
  readln(a);
  if a mod 10 = a div 10 then
    writeln('Цифры одинаковы.') else
       writeln('Цифры НЕ одинаковы.');
end.
3)
Pascal
1
2
3
4
5
6
7
8
9
10
11
var
  a,i:integer;
  s:longint;
begin
  cls;
  write('A=');
  readln(a);
  s:=0;
  for i:=a to 500 do inc(s,i);
  writeln('Сумма=',s);
end.
0
Заблокирован
17.03.2012, 23:21 3
3)Сумма арифметической прогрессии-
Pascal
1
S:=(a+500)/2*(500-a+1)
0
0 / 0 / 1
Регистрация: 17.03.2012
Сообщений: 10
17.03.2012, 23:23  [ТС] 4
Ой, спасибо большое, выручил)))) а можно ещё третью. Мы модуль и функцию Байт даже не проходили. Не понимаю, почему учитель такие задачи задаёт

Добавлено через 53 секунды
Апострофф, спасибо)
tm2012, спасибо)

Добавлено через 37 секунд
Апострофф, можешь расписать задачу полностью пожалуйста)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.03.2012, 23:23
Помогаю со студенческими работами здесь

Найти сумму всех целых чисел от 100 до 500
9)3. Найти сумму всех целых чисел от 100 до 500. С меня +++++++++ за каждую задачу!!!!З

Найти сумму квадратов всех целых чисел от а до 50 (а вводится с клавиатуры; 0<а<50);
Не могу понять правильно написал или нет, можете подсказать. Заранее спасибо! #include...

Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры: а больше или равно 0 и меньше или равно 50)
Найти сумму квадратов всех целых чисел от а до 50 (значение а вводится с клавиатуры: а больше или...

Найти сумму целых чисел от заданного числа до 500
Добрый День. Помогите написать программу. 5.53. Цикл с условием. Найти: б) сумму всех целых...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru