1)Найти сумму 1/2+1/4+1/6...1/20 на паскале с помощью while и точно такую же задачу с циклом for
10-11 класс
|
2)Возведение степени a в степень n, с помощью while
Program h;
var i:integer;
s:real;
begin
i:=0;
while i<=20 do
begin
i:=i+2;
s:=s+1/i;
end;
writeln(s);
end.
Program h2;
var i:integer;
s:real;
begin
for i:=2 to 20 do
begin
if (i mod 2=0) then s:=s+1/i;
end;
writeln(s);
end.
3)program chik;
var a,n,p,i:integer;
begin
read(a,n);
i:=2;p:=a;
whiel i<=n do
begin
i:=i+1;
p:=p*a;
end;
writeln(p);
end.
если непонятно пиши что непонятно(надеюсь поймеш) и я отвечу на вопросы
Другие вопросы из категории
Читайте также
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
экран с 20 по 50 в строку через пробел
2.для первыз десяти элементов найти среднее арифмитическое
3.вывести на экран только четные элементы с 1 по 10 элементы массива
4.найти сумму нечетныз значений с 20 по 50 элемент
5.найти количество элементов кратныз заданному числу,введёного с клавиатуры среди всез элементок линейного массива
напишите пожалуйста программу на паскале и блок схему!)
2)Найти количество всех нечетных чисел на интервале от 11 до 20
3)Найти сумму целых положительных четных чисел на интервале от 1 до 100
4)Найти сумму ряда,общий член которого равен А(х)=1/(3*N-2)*(3*N+1)
5)Дано произвольное число n≤100.Определить количество цифр в числе
ОЧЕНЬ НУЖНО!!НА ЯЗЫКЕ ПАСКАЛЬ!ВЫРУЧАЙТЕ!
1)Вычислить значения функции y=(x-1)^3 при изменении x на отрезке -5;5 с шагом 0,2 отпечатать каждое третье отрицательное значение и получить произведение положительных.
2)Найти сумму ряда y=x-(x^2)/2+(x^3)/3-...+((-1)x^n)/n
Плиз срочно надо