Решение в файле, ну а как сравнить (отношением или больше-меньше) это вы сами допишете.
Var n, a, b, c, d: integer;
begin
writeln('Введите четырёхзначное число');
readln(n);
a:=n div 1000; {первая цифра}
b:=(n div 100) mod 10; {вторая цифра}
c:=(n div 10) mod 10; {третья цифра}
d:=n mod 10;{четвёртая цифра}
if (a+d) = (b+c) then write('верно')
else write('неверно');
end.
1. 40960 бит/8 = 5120 байт /1024= 5 Кбайт
2. ДВГАБ
3. Кол-во страниц = Объем текста (в битах) /кол-во строк*кол-во символов*объем 1 символа (в битах) = (20*1024*8)/40*64*16= 4 страницы
4. С:/Опрос/7класс/Самостоятельная работа.doc
5. Всего пикселей= 150*40 = 6000, в 16-цветной палитре на каждый пиксель приходится 4 бита, значит
объем картинки: 6000*4 бит = 24000 бит
скорость передачи данных: 24000 бит/5 сек = 4800 бит/сек = 600 Байт/сек