Технический форум - Помогите решить задачи

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Помогите решить задачи (http://www.tehnari.ru/f41/t59557/)

Помогите решить задачи

1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать произведение элементов, которые оканчиваются на цифру 1. Результаты вывести на экран.
2. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора количество его цифр. Результаты вывести на экран.
3. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Удалить из вектора все элементы, которые являются совершенными числами. Результаты вывести на экран.
4. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров строк, в которых есть хотя бы один элемент, который делит 120. Результаты вывести на экран.

и каким же способом вы хотите решить задачки? в экселе накидать формулы :)?

пишите язык программирования $%

язык паскаль

помогите кто- нибудь пожалуйста

Цитата:

Сообщение от nadya88 (Сообщение 621684)

помогите кто- нибудь пожалуйста

Ладно, сделаю.

Получите:

Цитата:

Сообщение от nadya88 (Сообщение 614730)

Код:

Uses CRT;

VAR

 N:Byte;

 A:Array[1..100] of Word;

 F:Array[1..100] of Byte;

 P:Extended;

 i,k:Byte;



Function Perf(Z:Word):Boolean;

 var j,Sum:Word;

begin

 Sum:=0;

 for j:=(Z div 2) downto 1 do

  if (Z mod j)=0 then Sum:=Sum+j;

 Perf:=(Z=Sum);

end;



BEGIN

 ClrScr;

 Write('Number of elements= ');

 Readln(N);

 For i:=1 to N do

  begin

   Write('A[',i:2,']= ');

   Readln(A[i]);

  end;

 ClrScr;

 Writeln('Initial array:');

 For i:=1 to N do

  Write(A[i]:4);

 Writeln;

 Writeln;

 P:=1;

 For i:=1 to N do

  If (A[i] mod 10)=1 then P:=P*A[i];

 Writeln('The product of elements ending with "1" is ',P:0:1);

 Writeln;

 Writeln('Number of figures of elements:');

 For i:=1 to N do

  begin

   If A[i]=0 then

    F[i]:=1

   else

    F[i]:=TRUNC(Ln(A[i])/Ln(10))+1;

   write(F[i]:4);

  end;

 Writeln;

 Writeln;

 Writeln('The initial array with perfect numbers excluded:');

 i:=1;

 Repeat

  If Perf(A[i]) then

   begin

    for k:=i+1 to N do

     A[k-1]:=A[k];

    Dec(N);

   end;

  Inc(i);

 Until i>N;

 For i:=1 to N do write(A[i]:4);



 Readln

END.

Цитата:

Сообщение от nadya88 (Сообщение 614730)

4. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров строк, в которых есть хотя бы один элемент, который делит 120. Результаты вывести на экран.

Код:

Uses CRT;

TYPE

 Vector=Array[1..100] of Word;

VAR

 N:Byte;

 A:Array[1..100] of Vector;

 Num:Array[1..100] of Byte;

 i,j,Nd:Byte;



Function Div120(R:Vector):Boolean;

var

 k:Byte;

 b:boolean;

begin

 b:=false;

 k:=0;

 Repeat

  Inc(k);

  If R[k]>1 then

   If (120 mod R[k])=0 then b:=true;

 Until b or (k=N);

 Div120:=b;

end;



BEGIN

 ClrScr;

 Write('N= ');

 Readln(N);

 For i:=1 to N do

  For j:=1 to N do

   begin

    Write('A[',i:2,'][',j:2,']= ');

    Readln(A[i][j]);

   end;

 ClrScr;

 Writeln('Initial matrix:');

 For i:=1 to N do

  begin

   For j:=1 to N do

    Write(A[i][j]:4);

   Writeln;

  end;

 Writeln;

 Writeln;

 Nd:=0;

 For i:=1 to N do

  If Div120(A[i]) then

   begin

    Inc(Nd);

    Num[Nd]:=i;

   end;

 Writeln('Numbers of lines, containing the 120 divisors:');

 If Nd=0 then

  Writeln('No such lines')

 else

  For i:=1 to Nd do write(Num[i]:4);



 Readln

END.

Помогите пожалуйста кто-нибудь решить задачи. я ничего не понимаю в этом

Контрольная работа 1

1.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Посчитать количество элементов, которые делят 120. Результаты вывести на экран.

1.2. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Составить новый вектор, записав в него для каждого элемента исходного вектора сумму его цифр. Результаты вывести на экран.
Контрольная работа 2

2.1. С клавиатуры вводятся длина (<=100) вектора и его (целые) элементы. Удалить из вектора все элементы, которые являются простыми числами. Результаты вывести на экран.

2.2. С клавиатуры вводятся размеры (<=100x100) матрицы и её (целые) элементы. Составить вектор номеров строк, в которых есть хотя бы один нулевой элемент. Результаты вывести на экран.

Не ясно на каком языке программирования писать, напиши в аську 1207147, там уже разберемся.