Прошу,помогите
1.Найти среднее арифметическое трех целых случайных чисел, принадлежащих промежутку [0; 10).
Ответы
Ответ дал:
0
var
a,b,c: Integer;
r: Real;
begin
randomize;
a:=random(10);
b:=random(10);
c:=random(10);
r:=(a+b+c)/3;
Writeln('Первое число: ',a);
Writeln('Второе число: ',b);
Writeln('Третье число: ',c);
Writeln('Среднее арифметическое: ',r);
end.
a,b,c: Integer;
r: Real;
begin
randomize;
a:=random(10);
b:=random(10);
c:=random(10);
r:=(a+b+c)/3;
Writeln('Первое число: ',a);
Writeln('Второе число: ',b);
Writeln('Третье число: ',c);
Writeln('Среднее арифметическое: ',r);
end.
Ответ дал:
0
ого!Спасибо огромное)))))))))))))))0
Ответ дал:
0
не за что, у меня все работает, я проверил
Ответ дал:
0
еще раз благодарю,ты меня спас))))
Ответ дал:
0
рад был помочь)
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад