1 Написать процедуру вычисления среднего арифметического двух чисел. Числа и результат передаются в качестве параметров, в каком из двух введенных с клавиатуры целых чисел произведение цифр больше. Для подсчета произведения циф...
1 Написать процедуру вычисления среднего арифметического двух чисел. Числа и результат передаются в качестве параметров
, в каком из двух введенных с клавиатуры целых чисел произведение цифр больше. Для подсчета произведения цифр использовать процедуру. 2 Написать процедуру вычисления среднего арифметического двух чисел. Числа и результат передаются в качестве параметров
Гость
Ответ(ы) на вопрос:
Гость1) Тут в смысле надо тебе интеграл найти???? если да, то Program Pr2;
uses crt;
procedure arifm(a,b:integer;var s:real);
begin
s:=(a+b)/2;
end;
procedure proiz(var a,b,c:integer);
var i,m1,m2:integer;
begin
m1:=1;m2:=1;
for i:=1 to a do m1:=m1*i;
for i:=1 to b do m2:=m2*i;
if m1>m2 then c:=m1
else c:=m2;
end;
var a,b,c:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
writeln(s);
proiz(a,b,c);
writeln(c);
end. 2) Program Pr1;
uses crt;
procedure arifm(var a,b:integer;s:real);
begin
s:=(a+b)/2;
writeln(s:8:3);
end;
var a,b:integer;
s:real;
Begin
clrscr;
readln(a,b);
arifm(a,b,s);
end.
Не нашли ответ?
Похожие вопросы