Var a, b, c, d, e, f, final : integer;
begin
write('введите 6 чисел через пробел: ');
readln(a, b, c, d, e, f);
final := (a + b + c + d + e+ f) / 6;
writeln('среднее арифметическое равно , final);
end.
Так как 8 и 16 являются целыми степенями 2, то для перевода из двоичной системы в восьмеричную и шестнадцатеричную нужно сгруппировать двоичные цифры по 3 или 4 соответственно (в триады и тетрады), и каждая группа будет обозначать ровно одну цифру новой системы. Точно так же для перевода из десятичной в "сторичную" цифры группировались бы по две. В случае нехватки цифр слева можно добавлять нули.
Эм... Нет правильного ответа, ибо анатомия.
В ромбе a mod 2=0
если да то sqr(a)
если нет то <span>exp(3*ln(a))
Надеюсь на лучший ответ:)</span>
Const n=10;
var a:array[1..n] of integer;
k,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(9)+2;
write(a[i],' ');
end;
writeln;
k:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then k:=k+1;
writeln('Четных: ',k,' нечётных: ',n-k);
end.
Пример:
<span>2 2 4 7 9 10 9 4 5 4
Четных: 6 нечётных: 4</span>