Ввели 3 числа a, b, c, вычислить b2-4ac и вычислить является ли это число положительным, или отрицательным. Решение с помощью паскаля.

Program a1; / / a1 - название твоей проги, с помощью program задают название программы.

var a, b, c, s : integer; / / a, b, c, s - переменные. var - ключевое слово, после этого слова объявляют переменные.

begin / / begin и end - это как скобки, в которых ты решаешь выражение

readln (a) ;

readln (b) ;

readln (c) ;

/ / readln () - оператор, с помощью которого можно отправлять данные в компьютер. Есть и такая fорма записи. read (). Отличие read от readln в том, если использует второй вариант readln (), то каретка (_) переносится на новую строку.

s : = b*2-4*a*a; / / присваиваем значения переменных в переменную s.

if (s > 0) then / / конструкция if else позволяет проверять условия, если это равно или не равно, то делай компьютер другое ...

writeln (' Число положительное') ;

else if (s < 0) then

writeln (' Число отрицательное') ;

/ / writeln () выводит инfу на экран.

end.

Var

a, b, c, d: real;

begin

write ('Enter a, b, c: ') ;

read (a, b, c) ;

d : = b * b - 4 * a * c;

if d > 0 then writeln ('D is positive')

else if d = 0 then writeln ('D = 0')

else writeln ('D is negative')

end.