Решить в паскале! в течение 2-х месяцев продавец доставлял на дом по 4 литра молока каждый день. в марте молоко стоило x рублей за литр, а с 1-го апреля цена молока увеличилась до (х+а) рублей за литр, сколько надо заплатить за все доставленное молоко?

Var x,a: real; begin writeln('введите сколько стоит молоко'); readln(x); writeln('введите насколько повысилась цена в апреле'); readln(a); x: = 4*x*30+4*(x+a)*30; writeln(x); end.

var c,a,b,i,j,l: integer; begin  cls;

  write('введите через пробел отрезок');   read(a,b);   for i: =a to b+1 do  begin    j: =2;     l: =round(sqrt(i));     while (i mod j < > 0) and (j < = l) do                                                                            begin                                                                              inc(j);                                                                             end;       if (j > l) then                                    begin                                      write(c,' ');                                       c: =i;                                     end;   end; end.

на выходе 109

 

 

program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.