Денис2011

Здравствуйте, помогите пожалуйста написать программу на Паскале.
1. С помощью оператора while. С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.
2. Вычислить и вывести на экран в виде таблицы значения функции, заданной с по¬мощью ряда Тейлора, на интервале от хнач до xкон с шагом dx с точностью е.

Миниатюры

 

Vladimir_S

Задача уже была, листинг здесь:
Паскаль

Денис2011

Большое спасибо

ww01031977

var s,i:real;
k:integer;
begin
while s<=100 do
begin
write('Vvedite chislo ');
readln(i);
s:=s+i;
k:=k+1;
end;
writeln('Summa= ',s:4:2);
writeln('Kolichestvo= ',k);
readln;
end.

Gruvi

В delphi еще надо ?