Написать программу(pascal) которая вводит с клавиатуры числа а,b,c. найти на сколько увеличится за а лет b рублей положенная в банк если годовая прибыль составляет с процентов. (используя только mod div. 1 курс корочи) заранее
Даже понятия не имею, к чему тут div и mod. Задача решается циклом for:
Var a,i:integer; b,c,b2:real; Begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); c:=c*0.01; b2:=b; for i:=1 to a do b2:=b2+(b2*c); b2:=b2-b; writeln('ответ: ',b2:0:2); End.
№1. Тысячи путей ведут к заблуждению, к истине - только один. Для начала надо посчитать, сколько всего символов в данном предложении, следует считать знаки препинания и пробелы. Посчитав все знаки (Итого:57), мы получаем, что вес предложения 57 байт, переводим в биты, то есть умножаем на 8 (1 байт = 8 бит): 57*8=456.
№2. Кодировка Unicode - это кодировка, каждый символ которой весит 16 бит. Итак, я посчитала количество знаков в предложении (Итого:32). Дальше: 16*32=512 бит.
№3. Итак, мы видим, что из 16-битной кодировки получилась 8-битная, а это значит, что она уменьшилась вдвое. 8x=800 x=100 (у тебя ошибка, я посмотрела аналогичные задания, отличающиеся только значениями)
Var a,i:integer; b,c,b2:real;
Begin
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
c:=c*0.01;
b2:=b;
for i:=1 to a do
b2:=b2+(b2*c);
b2:=b2-b;
writeln('ответ: ',b2:0:2);
End.