ребятаа написать программу !! Написать программу, которая выведет название вашей команды в шестнадцатеричном коде. Для тех, у кого название кириллицей — можно записать его латиницей для этого задания. Подсказка — используйте функции ord и hex
160
246
Ответы на вопрос:
var n, s: integer;
begin
readln(n);
s : = 1;
repeat
case n mod 10 of
0, 6, 9: inc(s);
8: inc(s, 2)
end;
n : = n div 10
until n = 0;
writeln(s)
end.
Популярно: Информатика
-
spurdosparde22805.02.2020 06:06
-
irunadp0a62f27.10.2022 01:39
-
талифа409.08.2020 04:40
-
ryzhov6721.03.2021 07:55
-
anton1253530.12.2020 16:39
-
olmilevskaya108.05.2022 11:17
-
altinbex05.07.2021 00:00
-
margocharlip0cmwu03.04.2021 02:58
-
mariacold01.05.2023 01:18
-
милана19802627.08.2022 18:17