Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 978 ответов!

написать программу решения задания в паскале

10-11 класс

Antoha2002 28 янв. 2014 г., 22:56:22 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Goblin32
29 янв. 2014 г., 1:54:27 (10 лет назад)

var
  s: real;
  a, k, b: integer;
begin
  S := 0;
  for k := 1 to 10 do
  begin
    if (k <= 5) then
    begin
      a := 1 + sqr(k);
      b := k;
    end
    else
    begin
      a := sqr(k) - 1;
      b := sqr(k);
    end;
    S := S + (a + b) / (sqr(a) + sqr(b));
  end;
  writeln(S);
end.

Ответить

Другие вопросы из категории

Заполнить

массив случайными числами (положительными и отрицательными) из произвольного
диапазона. Вывести созданный массив на экран, расположив элементы в одну строку
через пробелы. Заменить все отрицательные элементы квадратом соответствующего
индекса

Известно, что качество звукозаписи

характеризуется параметром потока данных в секунду (бит/сек, кбит/сек). Если
принять, что качество звука установлено в 73728 бит/сек, определите, какой
объем в байтах займет файл 8 секундной аудиозаписи без сжатия


Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наименьшее из таких чисел х, при вводе которых алгоритм печатает сначала 4, а

потом 3.
var x, i, K, R, y: integer;
begin
readln(x);
K := 0; R := 9;
y := x mod 10;
while x > 0 do begin
K := K + 1;
if R > x mod 10 then
R := x mod 10;
x := x div 10
end;
R := y - R;
writeln(K); writeln(R)
end.

Читайте также

Помогите написать программу в паскале. Задание:На плоскости даны 2 точки А (х1; у2) и В (х2; у2), определить какая из них находится дальше от начала коо

рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу

написать программу на Assembler

добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.

задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов

Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.

заранее огромное спасибо всем!

Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных

13.

Нужно написать программу на цикле с предусловием, на Паскале.

Задание Определить, изделия какой из двух групп товаров выгоднее сшить из одного рулона ткани, если известны: расход ткани на каждое изделие и цена

готового изделия, количество метров в рулоне. Помогите, нужно написать программу решения этой задачи в Паскале



Вы находитесь на странице вопроса "написать программу решения задания в паскале", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.