<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (рост,вес):=ReadReal2('Введите рост в см и вес в кг:');
Writeln('Ваш ИМТ равен ',вес/Sqr(рост/100):0:1)
end.
<u>Пример</u>
Введите рост в см и вес в кг: 170 60
Ваш ИМТ равен 20.8
10 A = ( 60 секунд на строчку)20 D=0 (счетчик строчек) 30 В=0 (сумма времени строчек) 50 В=А+В 60 A=A+10% 70 D=D+1 80 IF D<40 GO TO 50 90 R=B/60 (секунды в минуты) 100 PRINT "На заучивание стиха уйдет",R ; "минут" 110 F=B+15*60 120 PRINT "Начать учить стих за", F/60; "минут до начала урока" <span>130 PRINT "Но не раньше, чем за", 3*60+R; "минут до урока</span>
Была произведена серия из 5 подбрасываний монетки. В результате каждого подбрасывания монетка может выпасть орлом или решкой с равной вероятностью. Сколько бит информации будет нести в себе сообщение о том, что в результате второго и четвертого подбрасываний в этой серии монетка упала орлом. Орел во 2 и 4 подбрасывании , 8 комбинаций (01010, 11010, 11110, 11111, 01111, 01011, 01110, 11011)
Имеем log 2 (32 / 8) = log 2 (2^5 / 2^3) = log 2 (2^2) = 2 бит
Ответ 2 бит
Количество 0 и 1 не считая ведущих 0 равно количеству битов. дальше перевод в кратный единицы.
байт = 8 бит, кибибайт = 1024 байт и т.д.
var a: array [1..100] of integer;
i,n,min,max:integer;
Begin
read(n);
for i := 1 to n do
read(a[i]);
min:=a[1];
max:=a[1];
for i:= 1 to n do begin
write(a[i],' ');
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln(min,max);
End.
