Средняя заработная плата в январе составила z руб., а стоимость потребительской корзины—к руб. предполагается, что ежемесячный рост заработной платы составит р%, а потребительской корзины q%. последовательно выводить прогнозируемую разность между средней заработной платой и стоимостью потребительской корзины в феврале—декабре. вычисления прекратить, если разность станет отрицательной. на паскале

Program prognoz; var    z, k, p, q: real;             m: integer; begin write('введите среднюю зарплату в январе z = '); readln(z); write('введите среднюю потреб.корзину в январе k = '); readln(k); write('введите предполагаемый ежемесячный рост зарплаты в % p = '); readln(p);     write('введите предполагаемый ежемесячный рост потреб.корзины в % q = '); readln(q);     m : = 2; z : = z*(1+p/100); k : = k*(1+q/100); while (z > = k) and (m < 13) do begin writeln('прогноз разности зарплаты и потреб.корзины в ', m: 2, '-й месяц: ', (z-k): 10: 2, ' руб.'); inc(m); z : = z*(1+p/100); к  : = k*(1+q/100); end end.

program xxx;

var k, d, n : integer;

          pr : boolean;

begin

  writeln('введите число k=');

  readln(k);

  d: =2;

  n: = k div 2;

  pr: =false;

  while (d< =n) and not(pr) do

      if k mod d = o then pr: =true else d: =d+1;

  if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');

    readln

end.

  вот первая программа. вторую сейчас пишу.

program p_1; var a,b: string; i,k: integer; begin k: =0; write('введите слово '); readln(a); write('введите символ '); readln(b); for i: =1 to length(a) do begin if a[i]=b then k: =k+1; if a[i]=b then writeln(i,' '); end; if k> =1 then writeln('да, встречается ',k,' раз, на позиции указанных сверху в столбик ')else writeln('нет'); end.