посчитайте объем растрового файла размером 1600х800 пикселей, каждый пиксель которого покрашен одним из 8 возможных цветов. ответ выразите в килобайтах
232
405
Ответы на вопрос:
Var a,i,b,r: integer; s,se: string; begin; readln(a); repeat b: =a mod 8; a: =a div 8; str(b,se); s+=se; until (a< =7); str(a,se); s+=se; for i: =1 to length(s) div 2 do begin; se: =s[i]; s[i]: =s[length(s)-i+1]; s[length(s)-i+1]: =se[1]; end; val(s,r,a); write(r); end.
Популярно: Информатика
-
Katerinkacat27.09.2020 10:15
-
marinandnatasha125.12.2021 03:45
-
Daria137829.06.2021 22:56
-
AnnaMillerNikitina24.01.2021 04:40
-
veronekareshet08.12.2021 13:39
-
1234567Саша28.10.2021 08:29
-
imail9107.05.2020 08:39
-
Ксения6183137812.11.2022 07:45
-
polyaХеХеХе26.06.2022 05:25
-
artemumnov224.01.2023 06:50