Паскаль!Надо исправить ошибки,чтоб программа начала работать дам. program p2; var x,y:integer; begin - id1716270420221219 от Hiitsmi 19.12.2022 07:36

Question

Информатика: Паскаль!Надо исправить ошибки,чтоб программа начала работать дам. program p2; var x,y:integer; begin writeln ( Сколько кругов хочешь пробежать? ); readln (x); repeat writeln ( Сколько уже пробежал? ); readln (y); if x y then writeln ( Еще надо бегать ); until y x then writeln ( Молодец,выполнил свою цель,можешь быть свободен ); readln; end.

Hiitsmi · Accepted Answer

Все задачи однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то  один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит) (2^14*5)/2^13=10 кбайт 2) (64*128*7)/2^13=(2^13*7)/2^13=7 кбайт 3)(64*256*8)/2^13= 2^17/2^13=2^4=16 кбайт 4)(32*1024*7)/2^13=(2^15*7)/2^13=4*7=28...

MOGZ ответил