Необходимо написать программу, которая выполняет следующие действия: 1. Запрашивает у пользователя 13 оценок, полученных учащимися за контрольную работу (от 1 до 5), (использовать оператор цикла for или while , запрашивает значит будет использоваться оператор input); 2. Определяет и выводит количество полученных пятёрок, четвёрок, троек, двоек и единиц, (используется оператор для определения if , elif и для вывода оператор print); 3. Выдаёт сообщение о неправильном вводе оценки, например, 0, 6 и т.д. (используется else : print ("такой оценки не существует") .
программа Питон
Скорее всего здесь зашифрован двоичный код в кодировке Unicode, где
49 = 1
48 = 0
32 = пробел
Программа для расшифровки на языке PascalABCprogram raf105;
var
i,n1,n2,e: integer;
s: string;
begin
i:=1;
writeln('Введите двузначные числа Unicode через пробел');
readln(s);
while i <= length(s) do
begin
val(s[i],n1,e);
val(s[i+1],n2,e);
write(chr(n1*10+n2));
i:= i+3;
end;
end.
Полученный двоичный код1101000 1110100 1110100 1110000 1110011 111010 101111 101111 1100010 1100101 1110100 1100001 101110 1101011 1100001 1101101 1100001 1111010 1101001 1110100 1111001 101110 1110010 1110101 101111 1100110 1101111 1110010 1110101 1101101 1110011 101111 1110010 1100101 1100111 1101001 1110011 1110100 1100101 1110010 101111 111111 1101001 1101110 1110110 1101001 1110100 1100101 1011111 1100011 1101111 1100100 1100101 1011111 1110010 1100101 1110001 111101 110001 1100011 110111 1100110 110100 110010 1100100 110111 110011 1100110 1100101 110101 110111 1100110 110110 1100001 111000 110110 111000 110000 1100011 110001 1100100 110001 110100 1100011 110110 1100010 1100100 110101 110010 1100110