Напишите программу , которая вычисляет площадь и периметр прямоугольника по двум его сторонам.

Var       a, b: real; begin       readln(a, b);       writeln('s=', a * b);       writeln('p=', 2 * (a + b)); end.

1. 1600 кбайт = 1600*1024 байт = 1600*1024*8 бит глубина цвета = 1600*1024*8 / (1280*1024) бит = 10 бит ответ: 10 бит 2.  для хранения одного из 1024 цветов требуется log(2)1024=10 бит (2^10=1024). необходимый объем памяти = 1024*512*10 бит = 1024*512*10 / (8*1024) кбайт = 640 кбайт ответ: 600 кбайт < 640 кбайт  ⇒ памяти недостаточно 3. для хранения одного из 256 цветов требуется log(2)256=8 бит = 1 байт (2^8=256). объем одной страницы = 1280*1024*1 байт. 2560 кбайт = 2560*1024 байт количество страниц = 2560*1024 / (1280*1024) = 2 ответ: 2

Var    n, n1, n2, n3: integer; begin    write('введите трехзначное число: ');     readln(n);     if not ((n > = 100 ) and (n < = 999)) then writeln('не верный вводд числа')    else    begin        n1 : = n div 100;         n2 : = n div 10 mod 10;         n3 : = n mod 10;                   writeln('1 - ', n3, n2, n1);         writeln('2 - ', n3, n1, n2);         writeln('3 - ', n2, n1, n3);     end; end.