Var
F:integer;
begin
write('F = ');
readln(F);
writeln( 'C = ',5/9 * (F - 32) );
<span>end.</span>
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>
вот я составляла на чертежник
Разрешение составляет 1280 на 1024. Поясняю, если перемножить эти числа то получится ваше разрешение
Сколько единиц в двоичном представлении числа 3710 =3 единицы
<span>Выполнить вычитание в двоичной системе счисления: 1111012 - 1112 =110110</span>
<span>Перевести двоичное число 1001112 в десятичную систему счисления =39</span>
<span>Выполнить сложение в восьмеричной системе счисления: 1248+658 =211</span>
<span>Выполнить сложение в двоичной системе счисления: 11101112+1112 =1111110</span>
<span>Выполнить вычитание в восьмеричной системе счисления: 1128 - 678 =23</span>
<span>Перевести число 145 из десятичной системы счисления в 8 ричную систему </span>
<span>счисления =221</span>