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

@cska007 · Регистрация: 17.03.2012

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

Добавлено через 4 минуты
Пожалуйста! срочно нужно) ну никак у меня не получается. Даже незнаю как и делать

@tm2012 · 17.03.2012, 23:16

1)

Pascal

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

var
  a:byte;
begin
  cls;
  write('Введи двузначное число: ');
  readln(a);
  if a mod 10 = a div 10 then
    writeln('Цифры одинаковы.') else
       writeln('Цифры НЕ одинаковы.');
end.

3)

Pascal

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.

@~~Апострофф~~ · 17.03.2012, 23:21

3)Сумма арифметической прогрессии-

Pascal

1	S:=(a+500)/2*(500-a+1)

@cska007 · 17.03.2012, 23:23 **[ТС]**

Ой, спасибо большое, выручил)))) а можно ещё третью. Мы модуль и функцию Байт даже не проходили. Не понимаю, почему учитель такие задачи задаёт

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

Добавлено через 37 секунд
Апострофф, можешь расписать задачу полностью пожалуйста)

@cska007 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

@cska007 0 / 0 / 1 Регистрация: 17.03.2012 Сообщений: 10
	17.03.2012, 23:23 [ТС]	4
	Ой, спасибо большое, выручил)))) а можно ещё третью. Мы модуль и функцию Байт даже не проходили. Не понимаю, почему учитель такие задачи задаёт Добавлено через 53 секунды Апострофф, спасибо) tm2012, спасибо) Добавлено через 37 секунд Апострофф, можешь расписать задачу полностью пожалуйста) 0

Опции темы