Вывести на печать элементы массива, кратные трем

@Sava250591 · Регистрация: 13.10.2009

КТО ЧЕМ МОЖЕТ ПОМОГИТЕ!!!!!(нужно срочно)

#47.
Вычислить значения функции z=x√(x*y), где x изменяется от 1 с
шагом 0.1 до 2 , y изменяется от y0 с шагом h. Cчитать y>0.

#42.
Вывести на печать элементы x[1],x[2],...,x[n], кратные трем
(n<=50).

#382.
Дана действительная матрица размером 6х9. Найти среднее арифме-
тическое наибольшего и наименьшего значений ее элементов.

#370б.
Дано натуральное число n. Получить действительную матрицу
a[i,j]i,j=1,...,n, для которой
sin(i+j) при i<j,
a[i,j]={ 1 при i=j,
arcsin(i+j)/(2i+3j) в остальных случаях.

#87.
Даны натуральные n,m. Получить сумму m последних цифр числа n.

#114д.
52 i^2
Вычислить: П ────────── , где П - произведение.
i=1 i^2+2i+3

#136д.
Даны натуральное число n, действительные числа a[1],...,a[n]. Вы-
числить a[1]^2+...+a[n]^2.

#165д.
Даны действительные числа a[1],a[2]... Известно, что a[1]>0 и
что среди a[2],a[3],... есть хотя бы одно отрицательное число.
Пусть a[1],...a[n] - члены данной последовательности, предшеству-
ющие первому отрицательному члену (n заранее неизвестно). Полу-
чить a[1],a[1]a[2],a[1]a[2]a[3],...,a[1]a[2]...a[n].

#178д.
Даны натуральные числа n, a[1],...,a[n]. Определить количество
членов a[k] последовательности a[1],...,a[n], удовлетворяющих ус-
ловию 2^k<a[k]<k!.

#338е.
Даны натуральное число n, целые числа a[1],...,a[25],
b[1],...,b[n]. Среди a[1],...,a[25] нет повторяющихся чисел, нет
их и среди b[1],...,b[n]. Верно ли, что все члены последователь-
ности a[1],...,a[25] входят в последовательность b[1],...,b[n] и
при этом a[1] встречается в последовательности b[1],...,b[n] не
позднее, чем a[2], a[2]-не позднее, чем a[3], и т.д.?

@Давид · 15.10.2009, 19:25

Sava250591,

#42.
Вывести на печать элементы x[1],x[2],...,x[n], кратные трем
(n<=50).

Pascal

program hhh;
Uses crt;
 Var x:array [1..50] of integer;
     i,n:integer;
begin
clrscr;
writeln ('Vvedite kol - vo elementov ne bolshe 50: ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Writeln (' Chisla kratnye 3 ');
For i:=1 to n do
  if x[i] mod 3 = 0 then write (x[i]:4);
Readln
end.

@Sava250591 0 / 0 / 0 Регистрация: 13.10.2009 Сообщений: 12
		1
	Вывести на печать элементы массива, кратные трем 15.10.2009, 18:51. Показов 2525. Ответов 1 Метки нет (Все метки) КТО ЧЕМ МОЖЕТ ПОМОГИТЕ!!!!!(нужно срочно) #47. Вычислить значения функции z=x√(x*y), где x изменяется от 1 с шагом 0.1 до 2 , y изменяется от y0 с шагом h. Cчитать y>0. #42. Вывести на печать элементы x[1],x[2],...,x[n], кратные трем (n<=50). #382. Дана действительная матрица размером 6х9. Найти среднее арифме- тическое наибольшего и наименьшего значений ее элементов. #370б. Дано натуральное число n. Получить действительную матрицу a[i,j]i,j=1,...,n, для которой sin(i+j) при i<j, a[i,j]={ 1 при i=j, arcsin(i+j)/(2i+3j) в остальных случаях. #87. Даны натуральные n,m. Получить сумму m последних цифр числа n. #114д. 52 i^2 Вычислить: П ────────── , где П - произведение. i=1 i^2+2i+3 #136д. Даны натуральное число n, действительные числа a[1],...,a[n]. Вы- числить a[1]^2+...+a[n]^2. #165д. Даны действительные числа a[1],a[2]... Известно, что a[1]>0 и что среди a[2],a[3],... есть хотя бы одно отрицательное число. Пусть a[1],...a[n] - члены данной последовательности, предшеству- ющие первому отрицательному члену (n заранее неизвестно). Полу- чить a[1],a[1]a[2],a[1]a[2]a[3],...,a[1]a[2]...a[n]. #178д. Даны натуральные числа n, a[1],...,a[n]. Определить количество членов a[k] последовательности a[1],...,a[n], удовлетворяющих ус- ловию 2^k<a[k]<k!. #338е. Даны натуральное число n, целые числа a[1],...,a[25], b[1],...,b[n]. Среди a[1],...,a[25] нет повторяющихся чисел, нет их и среди b[1],...,b[n]. Верно ли, что все члены последователь- ности a[1],...,a[25] входят в последовательность b[1],...,b[n] и при этом a[1] встречается в последовательности b[1],...,b[n] не позднее, чем a[2], a[2]-не позднее, чем a[3], и т.д.? 0

Опции темы

Вывести на печать элементы массива, кратные трем

Решение