<span>10 INPUT D</span><span>
30 IF D > 1070 AND D < 1100 AND D MOD 7 = 0 AND D MOD 5 = 0
</span><span> THEN PRINT "Вводимый год может быть годом рождения китайского поэта"
</span><span> ELSE PRINT "Вводимый год не может быть годом рождения китайского поэта"</span>
END IF
<span>40 END</span>
Эти числа заданы в двоичной системе счисления, переведем их в десятичную и решим задачу:
<span>111100% = 60% девочек </span>
<span>1100 = 12 мальчиков </span>
<span>12 мальчиков составляют 40% учащихся в классе </span>
<span>Составим пропорцию </span>
<span>12 - 40% </span>
<span>х - 100% </span>
<span>х = 12 * 100 : 40 = 30 </span>
<span>Ответ: В классе 30 учеников.
</span>
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк в матрице:');
var m:=9;
Writeln('*** Исходная матрица ***');
var a:=new real[n,m];
Randomize;
for var i:=0 to n-1 do
for var j:=0 to m-1 do
a[i,j]:=Random(-100,100)/10;
a.Println(5,1); Writeln(5*a.ColCount*'-');
var col:=1;
Write('Средние арифметические: ');
while col<=m-1 do begin
Write(a.Col(col).Average:0:2,' ');
col+=2
end;
Writeln
end.
<u>Пример</u>
Количество строк в матрице: 6
*** Исходная матрица ***
9.6 -4.5 0.2 -7.6 5.4 -4.8 -0.1 -8.6 9.3
-3.6 -3.3 -4.6 -4.6 -2.0 -7.3 5.4 5.1 -9.3
3.2 1.0 -8.1 -5.9 -6.1 9.8 -0.7 -2.5 -1.5
-3.0-10.0 -7.4 -6.7 9.6 -2.1 9.3 -4.6 -3.8
9.7 -7.8 3.1 0.9 -3.0 5.4 9.7 2.9 -9.6
-3.3 4.4 -1.7 -5.0 8.5 0.9 -3.9 -3.4 1.3
---------------------------------------------
Средние арифметические: -3.37 -4.82 0.32 -1.85
K = 60*50*40
N = 65536
N = 2^j
j = 16
I ( объем инф-ии) = 16*60*50*40 = 1920000 бит = 240000 байт =234,3 Кбайт
ответ: 234,3 Кбайт
Раздел описания переменных начинается со слова Var (variables - переменные), за которым идет список имен переменных через запятую. Тип указывается после двоеточия. В стандарте языка Паскаль существуют два числовых типа величин: вещественный и целый. Слово integer обозначает целый тип (является идентификатором целого типа). Вещественный тип обозначается словом real.