Нужен сам код

[TJeyMD]

Доброго времени суток всем, есть редкое возможности провести время с дочкой, попросила помочь, отказать не стал а сам Паскаль не знаю, по этому я уповаю только на вашу помощь! За ранее благодарен!

1. Напишите программу, которая определяет среднее арифметическое и среднее геометрическое двух чисел.

2. Напишите программу, которая вычисляет сумму и произведение первых N четных чисел, используя процедуру.

[Paster Fob]

1-ое задание:

var a,b,c:extended;
begin
  writeln('введите 2 числа');
  readln(a,b);
  c:=(a+b)/2;
  writeln('среднее арифметическое ',c:5:2);
  c:=sqrt(a*b);
  writeln('среднее геометрическое ',c:5:2);
  readln
end.

[Serge_Bliznykov]

не знаю, правда ли история про помощь дочке, но, по крайней мере, не банальна..

ладно. держите и вторую задачу для дочки:

procedure FindEvenSum(EvenCount : integer; var EvenSum : longint; var EvenMult : longint);
var i, k : integer;
begin
   EvenSum := 0; {начальное значение сумматора равно нулю}
   EvenMult := 1; {начальное значение переменной для хранения результата произведения равно 1}
   k:=2; {первое чётное число}
   i:=1; {счётчик чётных просуммировнных чисел}
   while i<=EvenCount do begin
       EvenSum := EvenSum + k; {увеличили сумму на текущее чётное число}
       EvenMult := EvenMult * k; {умножим произведение на текущее чётное число}
       k := k + 2; {получили следующее чётное число}
       i := i + 1; {увеличили счётчик чётных чисел}
   end;
end;

var N : integer;
   Sum, Mult : longint;
begin
   WriteLn('Введите количество чисел для суммирования (N):');
   Readln(N);

   FindEvenSum( N,  Sum, Mult);

   WriteLn('Найденная сумма = ', Sum, '  произведение равно ', Mut);
   
   Readln;   
end.

p.s. а вообще-то, или учите Паскаль, или не предлагайте свои услуги, или, заказывайте выполнение работ (можно и тут на форуме в разделе Фриланс за вознаграждение, а то мы студентов и школоту гоняем за попрошайничество, а Вы же взрослый человек, неудобно Вам нотации читать...

[TinMan]

[offtop]Да уж.. Любишь дочку - люби ее воспитывать..
Ты ей сейчас навредил, дочке своей. И знаешь это. А идешь на это потому, что тебе так приятнее.
Я все понимаю - и обстоятельства могут быть всякие, и желание показать себя может быть нестерпимым. Только не обманывай себя, что ты ей типа помог.[/offtop]

[Serge_Bliznykov]

ага. в моём коде есть опечатка...
и хоть она допущена случайно - исправлять не буду.
Может быть, хоть чуть-чуть заставит задуматься, почему пример не компилируется!

[Paster Fob]

а что значит "первых n чисел" ?

[TJeyMD]

Я при много благодарен всем кто откликнулся, вы все действительно правы, я признался что не знаю Паскаль и показал откуда взял решения! посмеялись в месте, все отлично!! благодаря вам! еще рас спасибо вам =)

[TinMan]

Окэй, держи пять ))

[antishoker]

[offtop]Хм, оригинальная тема, не часто такое попадается на форумах =) [/offtop]