1. Даны числа от 1 до N.Найти S: 1/2+1/3+…+1/N
5-9 класс
|
Program summa;
Var N: integer;
S: real;
Begin
S:=0;
Write ('Введите число N=');
Read (N);
For N:=2 to N do
S:=S+1/N;
Write ('Сумма чисел равна S=', S);
end.
Другие вопросы из категории
кругу! Пытается избавиться от проблемы автоматически... Кто знает как удалить это. Плиз
разделить на 2 то получиться 150 какое число задумал мальчик
, если алфавит, используемый племенем Мульти, содержит 26 символов?
Читайте также
3) Даны числа от 1 до n. Найти сумму чисел кратных 5, но не кратных 7.
Помогите пожалуйста!!!)))))
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
Задание 5.Дополните программу из задания 4 так , чтобы на экран выводились числа от 1 до 10,а также квадраты и кубы этих чисел в следующем виде:
1 1 1
2 4 8
3 9 27
... ... ...
10 100 1000
ПОМОГИТЕ ПОЖАЛУЙСТА,ЗАДАНИЕ 4 ПИСАТЬ НЕ НУЖНО !ПОСТАВЛЮ ЛУЧЩИЙ ОТВЕТ И "СПАСИБО"
Пример вывода ответа: 5*2 = 10
6*2 = 12 и т.д.
2) Напишите программу перевода расстояния из метром в сантиметры для значений длин от 1 до 15 метров.
(Информатика. 8 класс. Паскаль)
зависимости от времени суток. Пример: Введите число от 0 до 24: 12 Добрый день!"