написать программу для нахождения значения переменной S по формуле: S=1n 1 + 1n 2 + ... + 1n n .
10-11 класс
|
uses crt;
var i,n,s:integer;
begin
read(n);
for i:=1 to n do
s:=s+i*n;
writeln(s);
end.
Другие вопросы из категории
ответ 56
Пожалуйста перепишите текст и заполните пробелы с объяснениями.
var slovo :string;
i :integer;
function ups(var s :string; ch :char):integer;
var i,n :integer;
begin
for i:=1 to length(s) do
if s[i]=ch then n:=i
else n:=0;
ups:=n;
end;
begin
writeln('vvedite slovo');
readln(slovo); writeln('N = ',ups(slovo,a));
end.
Дана ведомость из 10 записей: фамилия и 3 оценки. Найти среднее арифметическое и округлить.
Читайте также
X - Y и вывода значения величины Z. Протестировать программу для X=5.5, X=0, X=-10.2
2) Заданы действительные числа a , b , c и d . Написать программу нахождения полусуммы наименьшего и наибольшего из них.
3) Написать программу для вычисления суммы цифр числа , введенного с клавиатуры
Помогите прошу
2. Составить программу для упорядоченное двух элементов по убыванию.
Z=X/Y и вывода значения величины Z. Протестировать алгоритм для X=5, X=0, X=-8.75
Написать программу для нахождения среднего арифметического модулей двух чисел.