Вкладник хоче покласти в банк 1 грн на 2 роки, щоб отримати не менше ніж 2500 грн прибутку. банк пропонує два види вкладів під р1% річних без капіталізації прибутку через рік і під р2% річних з капіталізацією прибутку. якими мають бути значення р1 і р2 , щоб вкладник отримав потрібний прибуток.​

1)

program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln(a,b,c);

if a< min then min: =a; if b< min then min: =b; if c< min then min: =c; writeln('              ',min); readkey; end.

2)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a); min: =a; for i: =1 to 2 do                       

                                                                beginreadln(a); if a< min then min: =a;                                                             end; writeln(min);

readkey;

end.

3)

program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln(a,b,c); if a< b then b: =a; if c< a then b: =c; writeln(b); readkey; end.

50*70*2 = 7000 байт вес одной страницы

2.8мб /1024 /1024 = 2`936`012,8 байт

2`936`012,8 байт /7000 байт = 419,4304 страниц

1 кбайт

1000 байт

1024 бит

1 байт

1 бит 

var i: integer; s: real;

begin s : = 0; for i : = 1 to 100 do s : = s + i * i; writeln(s: 7: 0); end.