Program Uravnenie; uses Crt; var a,b,c,x,x1,x2 : real ; begin clrscr; writeln ( 'Введите a : ' ); readln ( a ); writeln ( 'Введите b : ' ); readln ( b ); writeln ( 'Введите c : '); readln ( c ); if ( sqr ( b ) - 4 * a * c ) < 0 then writeln ( ' Уравнение не имеет решения ' ) else begin if ( sqr ( b ) - 4 * a * c ) = 0 then begin x:= - b / ( 2 * a ); writeln( ' x = ', x : 8 : 2 ) end else begin x1:= ( - b + sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a ); x2:= ( - b - sqrt ( sqr ( b ) - 4 * a * c ) ) / ( 2 * a ); writeln( ' x1 = ', x1 : 8 : 2, ' x2 = ', x2 : 8 : 2 ) end end.
Скорее всего всё можно было проще сделать, но я только так понимаю, так что вот. Программа проверена и работает. program z; var a,b,c,d,e,x,g,h:integer; begin write('Введите пятизначное число'); read(x); a:= x mod 10; b:= x mod 100; b:= b div 10; c:= x mod 1000; c:= c div 100; d:= x mod 10000; d:= d div 1000; e:= x mod 100000; e:= e div 10000; if a mod 2=0 then h:=a else g:=a; if b mod 2=0 then h:=h+b else g:=g+b; if c mod 2=0 then h:=h+c else g:=g+c; if d mod 2=0 then h:=h+d else g:=g+d; if e mod 2=0 then h:=h+e else g:=g+e; writeln(' Сумма нечётных цифр равна ', g); write(' Сумма чётных цифр равна ', h); end.
IF x <= 1 THEN
y = 0
ELSE
y = 1 / (x + 6)
END IF
PRINT y
END