написать программу решения задания в паскале
10-11 класс
|
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 секундной аудиозаписи без сжатия
потом 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.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
13.
Нужно написать программу на цикле с предусловием, на Паскале.
готового изделия, количество метров в рулоне. Помогите, нужно написать программу решения этой задачи в Паскале