Напишите программу: даны 3 целых числа, найти сумму их квадратов. Паскаль.
Напишите программу: даны 3 целых числа, найти сумму их квадратов. Паскаль.
Напишите программу по которой из текстового файла с именем kvur.txt будут прочитаны три числа: a,b,c — коэффициенты квадратного уравнения затем будут вычислены корни этого уравнения и выведены на экран и в текстовый файл korni.txt. ПАСКАЛЬ
Ответы на задачу по Напишите программу по которой из текстового файла с именем kvur.txt будут прочитаны три числа: a,b,c - коэффициенты квадратного уравнения затем будут вычислены корни этого уравнения и выведены на экран и в текстовый файл korni.txt. ПАСКАЛЬ для школьников 10 - 11 класс. Прочитайте множественные решения и обсудите подходы с участниками. Ответы на этот вопрос уже есть. На нашем сайте вы можете задать свой вопрос и стать частью сообщества экспертов, помогая другим.
Var InFile, OutFile: text; // Вводной и выводной файлы
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.