Один из вариантов состоит из двух таблиц.
Левая таблица - база данных
правая форма отчета с необходимыми условиями
5+8 =13+11=24+14=38+12=50
Var sm, kg:integer;
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.
60символов
30 строк
иф.объем ?
---——————
Решение:
1) 2в 6 стпени = 64 >60
следует
2) 6бит ×60 =7200 бит в строке
3)7200×30 =216000бит (занимает одна страница )
4)216000/8=27000 байт
5)2700:1024