информационные долги...

[sokol987]

Здравствуйте - я студент у которого долг по информатике, задолжал 3 лабороторные в каждой 3 задачи (паскаль abc) завтра уже надо здать, я разобрал 5 задач 4 остались очень прошу кто ни будь может решить буду очень благодарен

вот задачи
1
Ввести два двузначных числа выяснить есть ли у них одинаковые
цифры. Если таковые имеются, то указать какие это цифры и сколько их.
2
Ввести целое n , если n > 0, то определить являются ли простыми
(делящимся нацело только на себя само и на единицу) числа от 1 до n .
Например, для n = 5:
1 – простое
2 – простое
3 – простое
4 – не простое
5 – простое

3
Дано z, x, k.
Если z>k, то вычислить и отпечатать , иначе – вычислить значение функции , где z изменяется на отрезке [-1,5,3] с шагом 0. Отпечатать все значения y > 3,5.

4
Ввести массив целых чисел X(N) (N<=50) и выдать его на печать. Определить среднее геометрическое положительных элементов, кратных трем, и записать его в начало массива, переместив элементы массива вправо (вспомогательный массив не создавать). Выдать на печать преобразованный массив.

Язык программирования Паскаль ABC
Заранее Огромное Спасибо!!!

[Zer0]

1)
http://ideone.com/AMDo8

Для второго функцию определения простых чисел можете взять отсюда

В третьем, мне кажется, формул нету

4)
Ввод/вывод массива оформите сами, это несложно
Расчет и вставка нового элемента:

...
pr:=1;
kol:=0;
for i:=1 to n do
  if a[i] mod 3 = 0 then begin
    pr:=pr*a[i];
    inc(kol);
 end;
srGeom:=Power(pr,1/kol);
for i:=2 to n+1 do
 a[i]:=a[i-1];
a[1]:=srGeom;
...

[sokol987]

вот с формулами

[Zer0]

на отрезке [-1,5,3] с шагом 0

вызывает у меня когнитивный диссонанс
отрезок заданный тремя элементами? или все таки [-1.5 ; 3] ?
А шаг 0 - это вообще невообразимо, аналогично если я попрошу Вас
пройдите от этого подьезда до следующего, делая шаги 0 см
Так что задание не помешало бы уточнить получше

[sokol987]

вот такие у нас тупые задания !!! а уточнить не смогу я завтра преподу твой вопрос задам ! а за решения спасибо!!!

[sokol987]

а можно по второй задаче полное решение, а то не всё понятно в указанном вами примере.

P.S. мне и так всю ночь оформлять эти лабороторные.

[Zer0]

var n,i:integer;

function isSimple(n:integer):boolean;
var i:integer;
begin
 if n<2 then isSimple:=false
 else
 if n<=3 then isSimple:=true
 else begin
 isSimple:=true;
 for i:=2 to trunc(sqrt(n)) do
  if n mod i=0 then begin
   isSimple:=false;
   break;
  end;
 end;
end;

begin
readln(n);
for i:=1 to n do begin
 write (i,' - ');
 if issimple(i) then writeln ('простое') else writeln ('составное');
end;
end.

[sokol987]

вы меня сегодня можно сказать от смерти спасли...

СПАСИБО!!! будет возможность кину денег вам на счёт...

[sokol987]

можно пожалуйста ещё полностью четвёртую...

P.S. сижу с 16 часов оформляю лабороторки.

[Juffin]

Вот вам ваш номер 4.

program Nomer4;

uses SysUtils, Math;

var m:array [1..51] of integer;
    n:integer;
    i:integer;
    k:integer;
    sr:longint;

begin
write('n=');
readln(n);

for i:=1 to n
do begin
   write('m[',i,']=');
   readln(m[i]);
   end;

sr:=1;
k:=0;

for i:=1 to n
do begin
   if (m[i]>0) and ((m[i] mod 3)=0)
   then begin
        sr:=sr*m[i];
        k:=k+1;
        end;
   end;

sr:=round(power(sr,1/k));

for i:=n+1 downto 2
do begin
   m[i]:=m[i-1]
   end;

m[1]:=sr;

for i:=1 to n+1
do write(m[i],' ');

readln;

end.