Var a,b : Integer;
Begin
Readln(a,b);
Writeln('Ср.арифм. = ',(a+b)/2);
end.
Из компьютерной графики нам известно, что разрешение - это велечина, опредеющая кол-во точек(елементов рострового изображения) на еденицу площади или длины.
Var x,y:integer;
<span>begin </span>
<span>y:=0; </span>
<span>repeat </span>
<span>writeln('Введите число'); </span>
<span>read(x); </span>
<span>if x mod 2 =0 then y:=y+1; </span>
<span>until x<0; </span>
<span>writeln('Количество четных цифр = ',y); </span>
<span>end.</span>
Ответ:
1) 375 байт * 8 = 3000 бит - объем этого сообщения
2) 3000 бит / 500 = 6 бит информационный вес каждого символа в этом сообщении.
3) N = 2^i
N = 2^6 = 64 символа в этом алфавите (мощность этого алфавита)
Подробнее - на Znanija.com - znanija.com/task/2943377#readmore
Объяснение:
Var
x, y: real;
begin
readln(x);
if (x < 0) then
y := sin(x) / cos(x)
else
if (x <= 1) then
y := sqr(e)
else
y := x + cos(x);
writeln(y);
<span>end.</span>