1445г. изобрел германский ювелир Иоганн Гутенберг.
Пусть ученик неуспевающий, если сумма его отметок меньше 2+2+3+3=10.
var
count_losers, sum, current_sum, mark, i, j, n: integer;
begin
read(n);
count_losers := 0;
for i := 1 to n do
begin
current_sum := 0;
for j := 1 to 4 do
begin
read(mark);
current_sum := current_sum + mark;
end;
if current_sum < 10 then
inc(count_losers);
sum := sum + current_sum;
end;
writeln('Неуспевающих учеников: ', count_losers);
writeln('Средняя сумма четырёх отметок: ', sum / n);
writeln('Средняя отметка: ', sum / 4 / n);
end.
Пример ввода:
4
2 2 2 5
2 2 5 2
2 5 2 2
3 2 2 2
Пример вывода:
Неуспевающих учеников: 1
Средняя сумма четырёх отметок: 10.5
Средняя отметка: 2.625
Записываем в двоичной системе исчисления.
13(10) = 00001101(2)
19(10) = 00010011(2)
Находим дополнительный код для 19, (в дополнительном коде будет - 19)
1. Находим инверсию числа 19 - заменяем 1 на нули, нули на единицы
00010011(2) - > инверсия -> 11101100(2)
2. Добавляем к инверсии 1 , получим дополнительный код
11101100(2)
+ 1
11101101(2)
находим сумму 13+19 в дополнительном коде
00001101
+
11101101
---------------
11111010
Старший разряд = 1 , значит число отрицательное.
Находим дополнительный код (инверсия +1) и добавляем знак " - "
Дополнительный код 00000101 + 1 = 00000110 = - 6(10)
13 - 19 = - 6
// PascalABC.NET
begin
var num: integer;
while true do
begin
num := ReadlnInteger('введите 4-х значное число, num =');
if (num > 999) and (num <= 9999)
then break;
end;
var str := num.ToString;
foreach var x in str do
Println(x)
end.
