даны натуральные число n, действительные числа a1,...an. Вычислить а1+...+an. На паскале
10-11 класс
|
var a,s:real; i:integer;
begin
write ('Введи натуральное число n = '); readln (n);
s:=0;
for i:= 1 to n do begin
readln (a); s:=s+a;
end;
write ('S= ',s);
end.
Другие вопросы из категории
Информатика. "Системы счисления и определение информационного объема сообщений" вариант ИН00101
Читайте также
(Умножение на 2),(Стереть последнюю цифру)
A) числа 7 из числа 361:
Б) числа 14 из числа 457:
пересечения прямых, описываемых уравнениями a1x+b1x=c1 и a2x+b2x=c2. Если прямые пересекаются или не существуют-выдать соответствующее сообщение. 2) даны действительные числа a1, b1, a2, b2. Составьте программу, которая определяет, какая из точек A(a1;b1) или B(a2;b2) лежит на прямой у=2х+1. Если такой точки нет-вывести соответсвующее сообщение.
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
2.дано натурально число N вычислить куб суммы этого числа