Автомат получат на вход четырехзначное число, в котором есть четные и нечетные цифры. строиться новое - id23623020221119 от angel496 19.11.2022 20:14

Question

Информатика: Автомат получат на вход четырехзначное число, в котором есть четные и нечетные цифры. строиться новое десятичное число по правилам: 1. вычисляются два числа- сумма четных цифр и сумма нечетных цифр заданного числа. 2. полученные два числа записываются друг за другом в порядке неубывания 217, 1913, 1021, 1218, 1812 105, 421, 291, 112

angel496 · Accepted Answer

Program kvur;
var
x1,x2,d,e,f, a, b, c: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a:6:2);
writeln('b= ',b:6:2);
writeln('c= ',c:6:2);
writeln('D=b*b-4*a*c=',d:6:2);
if (d>=0)
then begin
e:= (-b/(2*a));
f:= (sqrt(d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln('D>= 0, значит корни действительные: ');
writeln('x1= ',x1:6:2);
writeln('x2= ',x2:6:2);
end;
if(d<0) then begin
e:= (-b/(2*a));
f:= (sqrt(-d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln(' D<0, значит корни комплексные: ');
writeln('x1= ', e:6:2, ' + ', f:6:2, 'i');
writeln('x2= ', e:6:2, ' - ', f:6:2, 'i');
end;
end.

MOGZ ответил