Доброго времени суток всем, есть редкое возможности провести время с дочкой, попросила помочь, отказать не стал а сам Паскаль не знаю, по этому я уповаю только на вашу помощь! За ранее благодарен!
1. Напишите программу, которая определяет среднее арифметическое и среднее геометрическое двух чисел.
2. Напишите программу, которая вычисляет сумму и произведение первых N четных чисел, используя процедуру.
1) Решение 1-ой задачи
Program srednee_dvuch_chisel;
Var a,b:real;
Begin
write('Введите число А= ');readln(a);
write('Введите число B= ');readln(b);
Writeln('Среднее арифметическое= ',(a+b)/2:0:2);
Writeln('Среднее геометрическое= ',sqrt(a*b):0:2);
readln;
End.