• var a,c,n,i,p:real;
    begin
    readln(c);
    a:=sin(c)-2/(sqr(c)*c);
    if a>=0 then
    writeln(a);
    else
    for n:=1 to 28 do
    P:=(1+c)/n;
    writeln(p);
    end.
    ****** В чем ошибка?
    Дано с. Вычислить:
    а = sinс- . Если а ≥ 0, то напечатать а. Если а < 0, то вычислить р = , где n – натуральное число, изменяющееся от 1 до 28. Результат напечатать.

Ответы 1

  • точка с запятой после writeln(a) лишняя
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years