program raf105;
var
s,p,n: real;
i,let: integer;
begin
write('Введите положенную сумму: ');
readln(s);
write('Введите ежегодный прирост (%): ');
readln(p);
write('Введите желаемую сумму: ');
readln(n);
while s < n do
begin
let+= 1;
s+= s/100*p;
end;
writeln('Первоначальная сумма увеличится до желаемой через ',let,' л.');
end.
<h3><em><u>Язык PascalABC</u></em></h3>
var n, p: integer;
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.
Универсальный значит удобный. Подходит для всего
Файл и папки можно создавать, удалять, переименовывать, открывать.
Файлу можно задавать расширение, его можно открывать с помощью различных программ.
В папку можно помещать другие файлы и папки
1)128=2^7 Для хранения цвета надо 7 бит
V=2048*2048*7/8=3670016 байта=3584 кБайта=3,5 Мбайта
2) 3072*8=4096*x
x=6 бит
Число цветов=2^6=64 цвета