Запишите на языке паскаль программы для решения следующих , используйте оператор while: 1) запас рыбы в пруду оценен в а тонн. ежегодный прирост рыбы составляет 15%. ежегодный план отлова - в тонн. наименьший запас рыбы составляет с тонн. (запас ниже с тонн уже не восстанавливается.) составьте программу для подсчёта количества лет, в течение которых можно выдерживать заданный план. 2) дана последовательность 5, 9, 13, 17, . составьте программу для определения числа слагаемых, сумма которых равна 324. 3) составьте программу для определения количества цифр в записи произвольного натурального числа. 4) сумма 10000 рублей положена в сберегательный банк, при этом прирост составляет 5% годовых. составьте программу, определяющую, через какой промежуток времени первоначальная сумма увеличиться в 2 раза. решите, , хотя бы одну-две!

1.                                                                          

program raf105;

var

  b,c,let: integer;

  a: real;

begin

write('запас рыбы в пруду: ');

readln(a);

write('ежегодный план отлова: ');

readln(b);

write('наименьший запас: ');

readln(c);

while a > = c do

begin

  let+= 1;

  a: = a+a/100*15;

  a-= b;

end;

writeln('заданный план можно выдержать в течении ',let,' лет.');

end.

2.                                                                          

program raf105;

var a,sum,counter: integer;

begin

a: =1;

while sum< > 324 do

begin

  a+= 4;

  sum+= a;

  counter+= 1;

end;

writeln('число слагаемых: ',counter);

end.

3.                                                                          

program raf105;

var a,counter: integer;

begin

write('введите число: ');

readln(a);

while a< > 0 do

begin

  counter+= 1;

  a: = a div 10

end;

writeln('количество цифр: ',counter);

end.

4.                                                                          

program raf105;

var

  a: real;

  let: integer;

begin

a: = 10000;

while a< 20000 do

begin

  let+=1;

  a+= a/100*5;

end;

writeln('сумма увеличится в 2 раза через ',let,' лет');

end.

язык pascalabc

Var x,y,d,k: integer; begin for x: = 0 to 15 do       begin       y: =x*x+x+17;       write('f(',x,') = ',y);       k: =0;       d: =y div 2;       while d > 1 do             begin             if y mod d = 0 then k: =k+1;             d: =d-1             end;       if k = 0 then writeln(' - простое')       else writeln(' - составное')       end; end.

Const     n = 30; var     a,b: array[1..n] of integer;     i,s,m: integer; begin randomize; write('a(',n,'): '); m: =0; for i: = 1 to n do       begin       a[i]: =random(11)-5;       write(' ',a[i]);       if a[i] > 0 then             begin             m: =m+1;             b[m]: =a[i];             end       end; writeln; write('b(',m,'): '); for i: = 1 to m do       write(' ',b[i]); readln; end.