помогите с задачей в паскаль

[Switchback]

помогите плз......
Найти среднее значение и стандартные отклонения для элементов массивов x(N) и y(М); М< 100, N< 100.
(процедуры)

[Хыиуду]

пройти в цикле по массиву, сложить все элементы, разделить на их количество - получаешь среднее
пройти в цикле, из каждого элемента вычесть среднее - получишь отклонения

[Сумрачная]

Здравствуйте уважемые программисты.Умнейшие из умнейших.Помоготе несчастной девушке, решить несколько задачек.

B]1[/B]При каких значeниях Х следуещее выражение истинно?

1.Y mod 5=X

2.Прикаких значениях Y следующее выражение истинно: Y div 5=8

3.Прикаких значениях N следующее выражение истинно :50 div N=7

4.При каких значениях Z истинно:50 mod Z=7

5.С какими значениями Х следующее равенство будет правильным: X div 5=X mod 5

6.С какими значениями Н следующее равенство будет правильным: 20 div H=20 mod H



2Записать программу для вычесления значения выражения 1+2/(3+4/(5+6/(7+х))) при различных значениях Х.Выяснить,про каком Х значения выражения не существует.


3Что будет напечатано после выполнения программы ,если программист введет с клавиатуры числа: 1 2 3 4 5<-?

Var
a,b,c:integer;
begin
read (a,b,a,c,b);
write (a,b,c);
end.

Определить,что выводится на печать в результате выполнения следущей программы,если входной поток имеет вид b=4,c=3

var
a,b,c,i:integer;
begin
read (d,c);
writen( 'b=`,b, ` c= `,c); ( перед первой b перевернутая запятая,потом обычная наверху)
i:b div c ;
case i of
1: a:=b+c;
2: a:=b-c;
3: a:=2*(b+c);
4: a:=b*c;
end;
writen( `a=`,a); (перед первой a перевернутая запятая,потом обычная наверху)
end.


Вообщем,не оставьте в беде.Кто чем может,кто что знает, и главное, имеет желание поделиться.
Спасибо.

[Колядин Максим]

Сумрачная, - это математика, 1 класс. Например,
Y div 5=8
div - деление целых чисел (т. е. если есть остаток, то он отбрасывается. 5/2=2,5. Целых здесь 2, значит 5 div 2=2).
Y:=5*8;
Y=40;
Ответ: Y=40
______________________
mod - наоборот, остаток от деления a на b. (5 mod 2 =1);

50 mod Z=7
Z=50/7
Z~7.
Ответ: Z=7.
______________________

Такие примеры как 20 div H=20 mod H, легко решить програмно:

Код: Выделить всё

h:=1;
while (20 div h<>20 mod h) do inc(h);

______________________

Совет: прочитай какую-нибудь книжку для начинающих программистов.

[Сумрачная]

колядин максим

сердечно благодарю:d

[Хыиуду]

Я бы тут пробежался по значениям в цикле. Потому что Y div 5=8 истинно не только для Y=40, но и для Y=41, 42, 43, 44. То же со всеми остальными.
А задачи типа "3Что будет напечатано после выполнения программы ,если программист введет с клавиатуры числа: 1 2 3 4 5<-?" решаются путем запуска программы

[BBB]

mod - наоборот, остаток от деления a на b. (5 mod 2 =1);

Но далее:

50 mod Z=7
Z=50/7
Z~7.
Ответ: Z=7.

Т.е. 50 mod 7 = 7 ????
Максим, я в шоке...

[somewhere]

50 mod Z=7
Z=50/7
Z~7.
Ответ: Z=7.

X*Z + 7 = 50
X*Z = 43, в целых числах неразрешимо!!!

[BBB]

X*Z + 7 = 50
X*Z = 43, в целых числах неразрешимо!!!

Ну почему же? X = 1, Z = 43.