1.вычислить факториал N. (4!=1*2*3*4=24)
10-11 класс
|
2.найти среднее геометрическое N чисел
3. вычислить сумму чисел кратных 6 из интервала от 5 до 100 включительно
в программе паскаль
program gt;
var n,i,p:integer;
begin
read(N);
p:=1;
for i:=2 to n do
begin
p:=p*i;
end;
write(p);
end.
3)
program gt;
var s:integer;
begin
for i:=5 to 100 do
begin
if(i mod 6=0)then s:=s+i;
end;
writeln(s);
end.
2)
program gtr;
var i,n:integer;
p,a:real;
begin
reaD(n);
p:=0;
for i:=1 to n do
begin
read(a);
p:=p+1/a;
end;
p:=n/p;
write(p);
end.
2 приведи пример
Другие вопросы из категории
2.Вставить число А перед всеми элементами, большими А, а число В - после всех элементов, меньших его.
3.Дана матрица Ф(6х7), заполненный случайным образом. Заменить максимальный элемент каждой строки на противоположный по знаку.
4. Дан двумерный массив. Найти сумму элементов его главной диагонали и поизведение элементов побочной диагонали. Результат занести в одномерный массив.
Пожалуйста, помогите, очень нужно! Хотя бы некоторые решите. Второй день не могу сделать! Тема одномерных и двумерных массивов.
содержит 1125 байт.
Распишите решение, если возможно.
Читайте также
язык - pascal
прогрессии и сумму первых n членов Sn. Если Sn≤25, то вычислить процентное отношение первого и последнего членов арифметической прогрессии . Написать программу на языке Паскаль
нужно использовать кнопку СРЗНАЧ,но ведь там в баллах и выходит,а "средний бал" помоему должен вычисляться в оценке.
Напишите программу, которая вычисляет НОК двух чисел. Используйте функцию.
Нечетное то вычислить сумму : 1 + 2 + .+N.Составить программу на паскале