1)40*16=640
640 делим на 16 битов =40 Кбайт
Вариант 2)
Var
n, sum :integer;
begin
readln(n);
sum:= (n div 10) + (n mod 10);
write(sum,' - ');
if sum mod 2 = 0 then
write('четная')
else
write('нечетная');
end.
Теодор Нельсон впервые использовал термин "гипертекст"в докладе «Файловая структура для сложного, меняющегося и окончательно неопределимого» 24 августа 1965 года
Даю в форме EXEL
Заранее извиняюсь за оформление так как не знаю какое требование к оформлению и какие данные можно менять в таблице на условие пользователя, так что надеюсь это поможет разобраться самому.