N:10 for(i 1 ;i больше n ;i++) A[n+1 i больше ] 2* A[i]
//Код 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.
Для корректной работы программы файлы должны находиться в одной папке с программой.
///Pascal abc.
Самый простой способ (программа в файлике);
Проверка:
Введите число: 547
Результат: 745
Программа, которая формирует массив из 7 случайных чисел из промежутка [5;10] и вычисляет их сумму
Uses crt;
var
n,f,p,s:integer;
begin
textbackground(15);
textcolor(1);
clrscr;
writeln('введите сколько книг по програмированию ');
readln(p);
f:=p*4;
s:=f-12;
n:=f+s+p;
writeln('всего ',n,' книг');
end.