// PascalABC.NET 3.2, сборка 1436 от 01.05.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,h,x:real; var xx,t:integer; Write('Введите a, b, h: '); Read(a,b,h); xx:=Trunc(a); Print(xx); x:=a+h; while x<=(b+h/10) do begin t:=Trunc(x+h/10); if t<>xx then begin xx:=t; Print(xx) end; x:=x+h end end.
Все задачи однотипные, нужно знать понятия глубины цвета и как расчитывается объём для растрового изображения. 1.всего пикселей 128*128= 2^14(2 в 14-ой степени) так как 32 цвет, то один символ кодируется 5 битами (log2(32), если бы было 33 цвета то уже бы потребовалось 6 бит, так как 5 бы не хватило). Нам нужно в килобайтах значит нужно разделить на 2^13 (т.к. в 1 кбайте 2^13 бит)
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,h,x:real;
var xx,t:integer;
Write('Введите a, b, h: '); Read(a,b,h);
xx:=Trunc(a); Print(xx);
x:=a+h;
while x<=(b+h/10) do begin
t:=Trunc(x+h/10);
if t<>xx then begin xx:=t; Print(xx) end;
x:=x+h
end
end.
Пример
Введите a, b, h: -15.2 20 0.2
-15 -14 -13 -12 -11 -10 -9 -8 -7 -6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20