Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Пожалуйста помогите решить задачи на Паскаль! (Паскаль)
Пожалуйста помогите решить задачи на Паскаль!
1. Найти среднее арифметическое вводимой с клавиатуры последовательности дробных чисел.
2. Дан набор ненулевых целых чисел; признак его завершения-0. Вывести количество элементов в наборе.
3. Дано вещественное число А и целое число N(>0). Вывести 1+А+А2+А3+...+АN. P.S. Цифра, стоящая рядом с А-это степень
4. Проверить истинность высказывания: "Данные числа х и у являются координатами точки, лежащей в четвертой координатной четверти".
1 | Автор: Murka886 | 2011-09-19, 16:47   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2011-10-01, 15:30   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2011-10-01, 15:30   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Пожалуйста помогите решить задачи на Паскаль! (Паскаль)
Страница 1 из 11
Поиск: