Уровень — Синтез Необходимо покрасить стены кухни. Сколько потребуется
банок краски, если известно, что:
- размеры кухни 405 x 310 x 285 см.
88% площади стен занимает кафельная плитка;
1 банка краски предназначена для покраски площади 5 м??
​

по формуле n=2 в степени i

32=2 в степени i

32=2 в пятой степени следовательно 2 в пятой степени=2 в степени i

откуда i=5 бит

ответ: 1 буква алфавита несет 5 бит

паскаль:

uses crt;

var a,b: string; \ а-слово ,b-символ

i: integer; \ переменная для счета

begin

writeln ('слово и символ');

readln (a,b); \\ввод данных

for i: =1to length(a) do if copy (a,i,1)=b then writeln (i); \\копирование по порядку символов слова а   и сравнение каждого с символом b. вывод ответа. или ответов 

readkey; \\если символы в слове повторяются

end.

program first; var i,a,b: integer; begin  cls;   read(a,b,i);   if a< 0 then write(sqr(a));

  if b< 0 then write(sqr(b));

  if i< 0 then write(sqr(i))end.

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?