Program a2;
var a, b, c, min: real;
begin
writeln ('Введите три числа');
readln (a, b, c);
min:= a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min=', min);
<span>end.
</span>
var year,percent,insum,cursum:integer;
begin
read(year, percent, insum);
cursum:=(percent*insum)/100*year+insum;
write(cursum);
end.
Входный данный должны быть типа
2 15 100
Выходные будут
130
Вопросы в приват
N=2^i, где N - кол-во символов в алфавите, i - количество бит на 1 символ.
в данном случае:
N=8
2^i=8
2^i=2^3
i=3 бит - на один символ(букву)
Ответ: 3 бит
Var x,y,i:integer;
begin
writeln('x':3,'y':5);
for i:=1 to 7 do
begin
x:=random(-4,7);
y:=x*x+1;
writeln(x:3,y:5);
end;
<span>end.</span>
Посчитаем объём информационного сообщения:640*480*4байта=307200байтов=2457600битов. Эту величину разделим на скорость 28800, получим приблизительно...