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; wri

Question

4 года назад

11

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; wri

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 ответ:

Ludmila-la-la-la · Answer 1 · 2020-03-15T06:12:01+03:00

Ludmila-la-la-la4 года назад

0 0

Точка с запятой после writeln(a) лишняя