<span>var {секция описания переменных}
Number,Num1,Num2,Sum: integer;
begin{начало программы}
write('Введите двухзначное число: ');//Вывод строки на экран
read(Number); //переменная Number получает значение с клавиатуры
Num1 := Number div 10; //В Num1 целая часть от деления Number на 10
Num2 := Number mod 10; </span>//В Num2 остаток от деления Number на 10<span>
Sum := Num1 + Num2; //находим сумму Num1 и Num2
write('Сумма двух чисел — ',Sum);//вывод результата на экран
end. {конец программы}</span>
Const
N = 5;
var
i: integer;
a: array[1..N * 2 + 1] of integer;
begin
writeln('Исходный массив: ');
for i := 1 to 2 * N do
begin
a[i] := Random(99) + 1;
write(a[i] : 5);
end;
for i := 2 * N + 1 downto N + 1 do
a[i] := a[i - 1];
a[N + 1] := 0;
writeln();
writeln('Полученный массив: ');
for i := 1 to 2 * N + 1 do
write(a[i] : 5);
end.
512 К = 512 х 1024 = 524 288 (байт).
640 х 200 = 128 000 (пикселей).
Для кодирования 16 цветов потребуется 4 бита (2^4=16), т.е. 1/2 байта.
Поэтому весь набор пикселей занимает 128 000 х (1/2) = 64 000 байт.
Это позволяет разместить 524 288 / 64 000 ≈ 8 страниц.