Прошу вас 50 .банк пропонує вкладникам кілька ви дів депозитів . зокрема, можна вкласти 


гроші під 12 % на рік або під 6 %  на півроку . в обох депозитах після закінчення  


року або півроку відповідно прибу ток додається до вкладу (капіталізу ється) . 


який  із  цих  депозитів  вигідніший,  якщо  вкладник  хоче  покласти  гроші  на 


2 роки? . яку суму потрібно вкладнику покла сти на більш вигідний депозит, щоб 
через 2 роки отримати прибуток, я кий перевищує 3000 грн?

ответ:

банк пропонує вкладникам кілька видів депозитів. зокрема, можна вкласти гроші під 12 % на рік або під 6 % на півроку. в обох депозитах по закінченні року або півроку відповідно прибуток додається до вкладу (капіталізується).

объяснение:

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('ясь',s,7);

writeln (s);

readln;

end.

3

а)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete (s,6,5); {удаляем включая пробел}

writeln (s);

readln;

end.

б)

program pr;

var

s: string;

begin

s: ='реки горы и болота';

delete(s,13,6);

s: =s+'озера';

writeln (s);

readln;

end.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.