Помогите решить задание по информатике 8й класс

Если PascalABC, то:



Вот в Excel:

Программу, значит, написать... - Это можно. Только вот на каком языке программирования это нужно сделать? - Нет, программе-то, конечно, без разницы, на каком языке программирования (а их (языков программирования) существует порядка 40) она написана, а вот учитель/преподаватель может спросить, с чего это программа была написана на этом языке программирования, а не на том, который он(а) преподает.

Вот, например, на Pascal:

 Program P3; 

uses crt; 

var a, b, c: real; 

begin 

clrscr; 

writeln ('Введите с клавиатуры значения коэффициентов при x и свободное число (только числа). После ввода каждого из чисел нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.'); 

write ('Введите коэффициент при x^2: '); 

readln (a); 

write ('Введите коэффициент при x: '); 

readln (b); 

write ('Введите свободное число: '); 

readln (c); 

if sqr (b)-4*a*c0 then writeln ('Ответ: Уравнение имеет 2 корня: x1=', (-b-sqrt (sqr (b)-4*a*c))/(2*a) :0:2, '; x2=', (-b+sqrt (sqr (b)-4*a*c))/(2*a) :0:2) else writeln ('Ответ: Уравнение имеет 1 корень: x=', -b/(2*a) :0:2); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end. 

Вот на Python:

 import math 

print ("Введите с клавиатуры значения коэффициентов при x и свободное число (только числа). После ввода каждого из чисел нажимайте клавишу Enter. При вводе дробных значений целую часть от дробной отделяйте точкой, а не запятой.") 

a=float (input ("Введите коэффициент при x^2: ")) 

b=float (input ("Введите коэффициент при x: ")) 

c=float (input ("Введите свободное число: ")) 

if b**2-4*a*c0: 

    print ("Ответ: Уравнение имеет 2 корня: x1 =", (-b-math.sqrt (b**2-4*a*c))/(2*a), "; x2 =", (-b+math.sqrt (b**2-4*a*c))/(2*a)) 

else: 

    print ("Ответ: Уравнение имеет 1 корень: x =", -b/(2*a)) 

Вот на C++:

 #include  

#include  

using namespace std; 

int main() 

{ 

    setlocale (LC_ALL, "RUS"); 

    double a, b, c; 

    cout

 Program P3 

Real a, b, c 

Write (*,*) "Введите с клавиатуры значения коэффициентов при x" 

Write (*,*) "и свободное число (только числа). После ввода каждого из чисел" 

Write (*,*) "нажимайте клавишу Enter. При вводе дробных значений" 

Write (*,*) "целую часть от дробной отделяйте точкой, а не запятой." 

Write (*,*) "Введите коэффициент при x^2: " 

Read *, a 

Write (*,*) "Введите коэффициент при x: " 

Read *, b 

Write (*,*) "Введите свободное число: " 

Read *, c 

if (b**2-4*a*c0) then 

         Write (*,*) "Ответ: Уравнение имеет 2 корня: x1=", (-b-sqrt (b**2-4*a*c))/(2*a), ";" 

         Write (*,*) "x2=", (-b+sqrt (b**2-4*a*c))/(2*a) 

 

     else 

        Write (*,*) "Ответ: Уравнение имеет 1 корень: x=", -b/(2*a) 

    end if 

end if 

End Program P3 

Какой язык программирования используется? Продублируй вопрос в раздел программирование.