Вбанк был положен вклад в размере n рублей. через три года он увеличился на 50%. сколько денег получил вкладчик? нужно составить блок-!

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

решение для 4-байтного представления

запишем двоичное число в форме нормализованного двоичного числа с плавающей точкой

0,110010001*10^1000

10- основание (2дес=10дв)

1000-порядок(8дес=1000дв)

определим машинный порядок:

мп = 1000 + 1000000 = 1001000

запишем число

01001000 0000000 00000001 10010001

порядок          ман                тис                  са