Program Task;
Const pupils = 20; subjects = 10;
Var marks: Array[1..pupils, 1..subjects] of Integer;
marks_average: Array[1..pupils] of Real;
i, j: Integer;
all_marks_average: Real;
Begin For i := 1 To pupils Do
Begin
WriteLn('Введите через пробел оценки ученика №', i);
For j := 1 To subjects Do
Read(marks[i, j]);
End;
For i := 1 To pupils Do
Begin
For j := 1 To subjects Do
marks_average[i] := marks_average[i] + marks[i, j];
marks_average[i] := marks_average[i] / subjects;
End; For i := 1 To pupils Do
all_marks_average := all_marks_average + marks_average[i];
all_marks_average := all_marks_average / pupils;
WriteLn('Результат: ', all_marks_average:2:2);
ReadLn;
<span>End.</span>
1111 (2) = 1*2^3+1*2^2+1*2^1+1*2<span>^0 =15 (10)
111001 (2) = 1*2</span>^5+1*2^4+1*2^3+0*2^2+0*2^1+1*2^0 = 57 (10)
101011 (2) = 1*2^5+0*2^4+1*2^3+0*2^2+1*2^1+1*2^0 = 43 (10)
11.11 (2) = 1*2^1+1*2^0+1*2^(-1)+1*2<span>^(-2) = 3.75 (10)
1.111 (2) = 1*2</span>^0+1*2^(-1)+1*2^(-2)+1*2^(-3) = 1.875 (10)
111.1 (2) = 1*2^2+1*2^1+1*2^0+1*2<span>^(-1) = 7.5 (10)</span>
Это графическая информация
Повторение- мать учения
Каждый символ в Unikode закодирован двухбайтовым символом.
В вашем случае: посчитай символы (вместе с пробелами между словами)
23 символа. тогда информационный объём составит: I=23*2=46 байт.
повторение - мать учения. 24 символа. 24*2= 48 байт
что не опнятно именно? как работает блок-схема?
если в блок-схеме дело, то объясню. Это цикл While(пока). Пишу блок-схему на русском.
Начало
Ввод х, у
Пока х=у, если да то вывод Х и уход на конец.
если нет, идёт дальше условный оператор if(если).
Если x>y если да, то ячейке х присвой значение х-у, если нет, то ячейке у присвой значение у-х. Дальше программа уходит на повтор.
Объясню на примере чисел.
вводим данные х=10, у=15;
10 не равно 15, значит идём на условный оператор if
10 < 15, ячейке У присваиваем значение 15-10
на экране 5.
на всякий могу написать программу.
Program af;
uses crt;
var x,y:integer;
begin
clrscr;
readln(x,y;
while x=y do begin
if x>y then x:=x-y
else Y:=Y-X;
end;
writeln(x);
readln;
end.