Вычислите в программе pascalabc : a+1/7c*7+6c/x/3(a+1)/x*x

{pascalabc}

program f0rwardirop;

var  

  r,x,y: real;

  b: boolean;

  i: integer;

  s: string;

begin

  s: =' -=alphaeus=- ';

  for i: =1 to 22 do begin write(s[i]); sleep(200) end;

  writeln; write('ok, введите r = '); readln(r);

  write('теперь введите х = '); readln(x);

  write('и, наконец, введите y = '); readln(y);

  if x> =0 then

    if (x*x+y*y < = r*r) then b: = true else b: =false

    else

      if (abs(x) < =r) and (abs(y) < =r) and (abs(x) < = abs(y)) then b: = true else b: =false;

  if b then writeln('точка (',x,',',y,') принадлежит закрашенной области')

  else writeln('точка (',x,',',y,') не принадлежит закрашенной области');

end.

Алгоритм такой:

1 шаг: определяем сколько мы получим денег за первые 75 газет.

Пусть n - всего газет, тогда (n-(n-75))*F = A, - рублей за первые 75 газет.

2 шаг: определяем кол.во копеек, которые мы получим за остальные газеты: (n-75)*X = B, - копеек.

Программа на естественном языке:

Переменные:

A, B : целые;

Начало

Введение n (число газет);

Введение F(цена за первые 75 газет);

Введение X(цена за последующие газеты);

A присвоить (n-(n-75))*F;

B присвоить (n-75)*X;

Вывод (Мальчик заработает A рублей B копеек).

Конец.