Составить программу в паскале с клавиатуы вводятся 5 чисел. после ввода каждого числа выводим среднее арифметическое введенной части p.s. пять чисел нужно выразить через одну переменную
Var pr,sum,n:real; i:integer; Begin write('Вводите числа: '); for i:=1 to 5 do begin readln(n); sum:=sum+n; end; pr:=sum/5; writeln('среднее арифметическое равно: ',pr); end.
Фигура красного цвета либо вторая, либо третья справа, с краю она быть не может, так как по обеим сторонам от нее должны быть фигуры. Следовательно, фигура черного цвета лежит на краю. Так как справа от нее лежит ромб, черная фигура лежит первой слева. Круг лежит правее треугольника и ромба, то есть третьем слева, раз треугольник не лежит с краю, там находится ромб. Тогда ромб черный, квадрат синий, так как не лежит рядом с ромбом, рядом с ромбом находится зеленый треугольник, а круг - красный, так как лежит между фигурами зеленого и синего цвета.
Для перевода десятичного числа в шестнадцатиричное надо делить его на 16, выписывая остатки до тех пор, пока не получим в результате число, меньшее 16. Затем записать этот результат и приписать к нему остатки в обратном порядке. В нашем случае результат 3 и остаток 9, поэтому получаем 39. Для перехода от шестнадцатиричного числа к двоичному надо каждую его цифру записать в виде четырех двоичных разрядов (тетрады). В старшей тетраде ведущие нули можно не писать. Чтобы получить восьмеричное число из двоичного, достаточно разбить его разряды справа налево на триады (т.е. по три разряда) и заменить каждую триаду соответствующей восьмеричной цифрой. Тут нужно пронумеровать разряды числа справа налево, начиная с нуля, а затем на местах единиц записать числа, равные двойкам в степени, совпадающей с полученным номером разряда и полученные результаты сложить Здесь принцип тот же, что и в предыдущем примере, только используются степени восьми, а не двух, поскольку основание системы восемь, а не два. И нужно не просто выписывать степени восьмерки, а умножать их значения на числа, стоящие в соответствующих разрядах. Нулевые разряды, если бы они были, можно также не принимать в расчет. И здесь принцип, как в предыдущем примере, только берутся степени числа 16, как основания шестнадцатиричной системы Похожее мы уже делала в первом примере, когда переходили от восьмеричного числа в шестнадцатиричному. Тут - наоборот. Каждую восьмеричную цифру заменяем двоичной триадой, потом разбиваем полученное двоичное число справа налево на тетрады и каждую тетраду заменяем соответствующей шестнадцатиричной цифрой.
Begin
write('Вводите числа: ');
for i:=1 to 5 do begin
readln(n);
sum:=sum+n;
end;
pr:=sum/5;
writeln('среднее арифметическое равно: ',pr);
end.