Задание. Составить программу на языке программирования Турбо Паскаль, для нахождения решения квадратного уравнения. Описание программы

Входные данные:

a, b, c — коэффициенты квадратного уравнения - переменные типа integer;

Выходные данные:

D — дискриминант квадратного уравнения — переменная типа real;

x1, x2, x3 — корни квадратного уравнения — переменные типа real;

program pr;

var i: integer;

      mas: array[1..7]of integer;

begin

for i: =1 to 7 do 

begin

writeln ('введите температуру ', i ,' сентября');

readln (mas[i]);

end;

for i: =1 to 7 do writeln (i, '  сентября температура была  ' mas[i]);

readln;

end.

революция 1917 года и великая отечественная война (1941-1945)

var

i,j,k: integer;

s,p: string;

begin

p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';

readln(s);

k: =0;

for i: =1 to length(s) do

for j: =1 to length(p) do

if s[i]=p[j] then k: =k+1;

writeln(k);

end.

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.