Цена на молоко. Животновод в начале каждой зимы повышает отпускную цену на молоко на р%, а каждым летом — снижает на столько же процентов. Изменится ли цена на молоко и если да, то в какую сторону и на сколько через n лет

#include "stdafx.h"

#include <stdio.h>//i/o

#include <conio.h> //_getch()

#include <ctype.h> //toupper

 

int main()

 

{

   long i,n;

   float cost, p,buf;

   do

   {

       printf("Vvedite pervonachalnuy stoimost : ");scanf_s("%f",&cost);

       printf("Vvedite procent p %  : ");scanf_s("%f",&p);

       printf("Vvedite n chisl Let : ");scanf_s("%u",&n);

       for(i = 0; i < n; i++)

       {

           printf("Let %u\r\n",i + 1);

           buf = cost*p/100;

           printf("Stoimost za zimmu + : %f\r\n",(cost += buf));

           buf = cost*p/100;

           printf("Stoimost za zimmu -: %f\r\n",(cost -= buf));

       }

       printf("Stoimost %u Let %f\r\n",i,cost);

       printf("Najmite Y - new input\r\n");

   }

   while(toupper(_getch()) == 'Y');

   return 0;

}

Var
q: string;
a,i,z,g,b,x,m: Integer;
begin
z:=0;
g:=1;
readln(q,a,b,x,m);
for i:=1 to length(q) do
begin
z:=z+q[i];
end;
if z<a then writeln('Верно, что сумма цифр меньше А') else
writeln('Неверно, что сумма цифр меньше А');
for i:=1 to length(q) do
begin
g:=g*q[i];
end;
if g>b then writeln('Верно, что произведение цифр больше B') else
writeln('Неверно, что произведение цифр больше B');
if x=length(q) then writeln('Верно, что число x значеное') else
writeln('Неверно, что число x значное');
if q[0]>m then writeln('Верно, что его первая цифра превышает m') else
writeln('Неверно, что его первая цифра превышает m')
end.

Программа для 1.
var
  n,b,s:integer;
begin
  Write('Введите натуральное число и значение b: ');
  Read(n,b);
  if n>b then Writeln('Неверно')
  else begin
    s:=0;
    while n>0 do begin
      s:=s+n mod 10;
      n:=n div 10
    end;
    if s mod 2=0 then Writeln('Верно') else Writeln('Неверно')
  end
end.

Программа для 2.
var
  k,m,n,b,s:integer;
begin
  Write('Введите натуральное число и значения m,n: ');
  Read(k,m,n);
  if k mod n <> 0 then Writeln('Неверно')
  else begin
    s:=0;
    while k>0 do begin
      s:=s+k mod 10;
      k:=k div 10
    end;
    if s>m then Writeln('Верно') else Writeln('Неверно')
  end
end.