очень нужны все эти задания в паскале. помогите пожалуйста.
5-9 класс
|
33.
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=2 to n do
begin
p:=p+(1-(1/sqr(i)));
end;
writeln(p);
readln;
end.
34.
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=1 to n do
begin
p:=p+(1-(1/s*i));
end;
writeln(p);
readln;
end.
35.
function fact(i:integer):integer;
begin
if i=0 then fact:=1
else fact:=fact(i-1)*i;
end;
var i,n:integer; p:real;
begin
cls;
write('write n '); readln(n);
for i:=1 to n do
begin
p:=p+fact(i);
end;
writeln(p);
readln;
end.
37.
program fibonachchi;
VAR
n,F,F2,F1,I:integer;
begin
write ('Введите число:');readln (n);
F1:=1;
F2:=1;
if (n=1) or (n=2) then writeln ('Число фибоначи:1')
else
begin
FOR I:=3 to n do begin
F:=F1+F2;
F2:=F1;
F1:=F;
end;
writeln ('Число фибоначи:',F);
end;
end.
38. пишу сокращенно тело программы напишешь.
for i:=1 to n do
y:=y*2*n-1;
39.
for i:=1 to n do
y:=y*2*n;
40.
подключить модуль math или как там на паскале)
for i:=1 to n do
y=y+power(cos(x),i);
41.
h:=0.1;
for i:=1 to n do
y=y+sin(i);
i:=i+h;
Другие вопросы из категории
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
-4 10 3 -5 4 0 1 -10 8 -6
на промежутке от -1 до 1 с шагом 0,1.
паскаль
а) из 3 учеников;б)из 10 учеников.
Читайте также
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить среднее арифметическое вещественных чисел...
ПАСКАЛЬ,ПОМОГИТЕ ПОЖАЛУЙСТА
.
а)ночь-?-?-?-?-?-день
б)рота-?-?-?-?-?-полк
в)бант-?-?-?-?-?-коса
г)бег-?-?-?-?-?-?-?-шаг
д)море-?-?-?-?-?-?-суша
е)миг-?-?-?-?-?-?-?-век
помогите очень нужно,учительница ужасно строгая ненавидит меня помогите!
ЭТО ПРАВДА ОЧЕНЬ НУЖНО И ЧЕМ БЫСТРЕЕ, ТЕМ ЛУЧШЕ)
Объясните, пожалуйста, как мне сделать эти номера)
У меня на компьютере все папки есть, которые требуют в заданиях ( я про каталог Антона Павловича Чехова и т.д.), но только я понятия не имею, как это делать:(
Объясните, пожалуйста, если не сложно, конечно)
ЭТО СРОЧНО НУЖНО)
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)