Program old;
var
s: real;
y: integer;
begin
s:=20;
y:=1626;
writeln('Сейчас 1626 год и я положил в банк: ', s);
while y<2003 do
begin
s:=(s+(s*0.04));
y:=(y+1);
writeln(s,'$ В банке на ', y, ' год');
end;
end.
Итого: 52795743.6290571$ В банке на 2003 год
А)Еёмф гсёна - рпуёцё шбт
б)Т Опгэн дпепн
в)Рёсгпё тёоуавса
186 уместиться в 1 байт/пиксель 50*50 = 2500 пикселов => столько же байт.
10 битов, 20 битов, 2 байта, 1 кбайт, 1010 байтов.