//Код Pascal:
Var
f:text;
a,b,c,D:real;
Begin
Assign(f,'kvur.txt');
Reset(f);
ReadLn(f,a,b,c);
Close(f);
Assign(f,'korni.txt');
Rewrite(f);
D:=b*b-4*a*c;
c:=(-b-Sqrt(D))/(2*a);
a:=(-b+Sqrt(D))/(2*a);
if D >= 0 then
Begin
WriteLn(c,' ',a);
WriteLn(f,c,' ',a)
End
else
Begin
WriteLn('Действительных корней нет.');
WriteLn(f,'Действительных корней нет.')
End;
Close(f);
ReadLn;
End.
Для корректной работы программы файлы должны находиться в одной папке с программой.
1) program ab;vars:string;i,k:integer;begins:='мама';for I:=1 to length(s) do begin k:=pos('м',s); if k<> 0 then begin delete(s,k,1); insert('п',s,k);end; end; writeln(s); end.
2 )program ab;
vars:string;i,k,n,j:integer;beginreadln(s);n:=0;k:= length(s) ;for i:= 1 to (k div 2) do
if s[i]<>s[k-i+1] thenn:=1; if n=0 then Writeln('Перевёртыш') else Writeln('Не первёртыш'); readln(j); end.
Float a,b,c,d;
// сканирование
if(a>c)
if(b>d)
printf("da");
else if(a>d)
if(b>c) printf("da");
esle printf("net");
else printf("net");
Скорее всего ошибка, выскакивает из-за не закрытой функции pow, не хватает скобки после 1/3. Также непонятно, Вы пытаетесь возвести в степень 1/3? если это так, то по вашему коду, а3 всегда будет равен 0. И на будущее возведение числа в дробь такого вида - это извлечение корня в степени делителя. Т.е. в вашем случае, нужно не возводить число в степень 1/3, а брать кубический корень.