ИНФОРМАТИКА 7класс
1.Как называется международная кодовая таблица?
2.Сколько бит памяти займёт слово "микропроцессор"?
3.Текст занимает 0,25 кбайт памяти компьютера.
Сколько символов содержит этот текст?
4.Что входит в системное программное обеспечение?
5.Для чего приминяется электронные таблицы?
Var a,b,c, D, Result : Integer;
Assign(InFile, "C:\kvur.txt");
Assign(OutFile, "C:\korni.txt")
Reset(InFile)
Read(InFile,a)
Read(InFile,b)
Read(InFile, c)
D = sqr(b) + 4*a*c
if D = 0 then
Write("Уравнение не имеет корней")
Else
Append(OutFile)
Result:=(-b + sqrt(D)) / 2 * a
Write(OutFile,Result)
Write("Корень уравнения")
WriteLn(Result)
if (D>0) then
Result:=(-b - sqrt(D)) / 2 * a
Write(OutFile, Result)
Write("Второй корень уравнения")
Write(Result)
End;
End.