1. Найти среднее арифметическое вводимой с клавиатуры последовательности дробных чисел.
2. Дан набор ненулевых целых чисел; признак его завершения-0. Вывести количество элементов в наборе.
3. Дано вещественное число А и целое число N(>0). Вывести 1+А+А2+А3+...+АN. P.S. Цифра, стоящая рядом с А-это степень
4. Проверить истинность высказывания: "Данные числа х и у являются координатами точки, лежащей в четвертой координатной четверти".
|
|
|
|
1.
var
a,b:real;
i,n:integer;
begin
read(n);
for i:=1 to n do begin
read(a);b:=a+b;
end;
writeln(b/n:2:2);
end.
2.
var
a,b:integer;
begin
a:=1;
while a<>0 do begin
read(a);b:=b+1;end;
writeln(b-1);
end.
"Спасибо" принимается повышением репутации ( Зелёный плюсик:) ).Спасибо
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
