Составить программу нахождения среднего арифметического трех целых случайных чисел, принадлежащих
промежутку [0; 10).
Ответы на вопрос
Ответил moboqe
0
uses crt;
var
a,b,c:integer;
d:real;
begin
randomize;
a:=random(0,10);
b:=random(0,10);
c:=random(0,10);
d:=(a+b+c)/3;
writeln('Среднее арифметическое ',a,', ',b,', ',c,'= ',d);
end.
var
a,b,c:integer;
d:real;
begin
randomize;
a:=random(0,10);
b:=random(0,10);
c:=random(0,10);
d:=(a+b+c)/3;
writeln('Среднее арифметическое ',a,', ',b,', ',c,'= ',d);
end.
Новые вопросы