256=2^8
8-бит
4*640*350*8=7168000 бит = 875 килобайт
что бы биты перевести в килобайты нужно биты разделить на 8192 ( 2^13)
D+S
Конь
Карась
Царь
Коня
Карася
Царя
Коню
Карасю
Царю
Конём
Карасём
Царём
То что было использовано:
D
Кон
Карас
Цар
S
ь
я
ю
ём
16*50*32=25600байт
8бит=1байт
25600*1=25600байт
1Кбайт=1024байта
25600:1024=25Кбайт
Program P1;
var x,y:real; k:integer;
begin
write('Цена товара = '); readln(x);
y:=x; k:=0;
while y<1.5*x do
begin
y:=y*1.01;
k:=k+1;
end;
writeln('k = ',k);
<span>end.</span>