1. Даны целые положительные числа A и B (A < B). Вывести все целые числа от A до B включительно; при этом каждое число должно выводиться столько раз, каково его значение. Пример ввода: 3 5
Пример вывода: 3 3 3 4 4 4 4 5 5 5 5 5
В питоне

7 200 000 байт

Объяснение:

V = K * i, где  

V - информационный объём изображения (размер файла, содержащего изображение)

K - количество точек (пикселей )

i - глубина цвета (число бит, используемых для записи цвета одного пикселя)

Чтобы узнать количество точек в изображении

1) переведём размер в дюймы:

25,4 см = 25,4 / 2,54 = 10 дюймов

20,32 см = 20,32 / 2,54 = 8 дюймов

2) умножим размер на разрешающую сканера:

10 * 8 * 300 * 300 = 7 200 000 точек

K = 7 200 000 точек

i = 8 бит = 1 байт

V = K * i

V = 7 200 000 * 1 = 7 200 000 байт

1

var a,b,p:integer;

begin

 writeln('Введите длину');

 readln(a);

 writeln('Введите ширину');

 readln(b);

 writeln('Периметр прямоугольника = ',2*(a+b),' см')

end.

2

var a:integer;

begin

 writeln('Введите число');

 readln(a);

 if a > 0 then a:= a + 1;

 if a < 0 then a:= a - 6;

 if a = 0 then a:= 16;

 writeln(a);

end.

3

var a:integer;

begin

 writeln('Введите число');

 readln(a);

 if a > 0 then a:= a * 5;

 if a < 0 then a:= a * a;

 if a = 0 then a:= 15;

 writeln(a);

end.

4

var a,b:integer;

begin

 writeln('Введите 1 число');

 readln(a);

   writeln('Введите 2 число');

 readln(b);

 if a > b then writeln(a)

 else

   writeln(b);

end.