Var
m,n,d:integer;
begin
Read(m,n);
d:=m mod 10 - n mod 10;
if d<0 then Writeln('У 1-го числа разряд единиц меньше')
else
if d>0 then Writeln('У 2-го числа разряд единиц меньше')
else Writeln('У обоих чисел разряды единиуц равны')
end.
В номере 1-ответ 3
В номере 2-ответ 4
В номере 3-ответ 1
Удачи))
1. Появление
2. Панорама
3. Фигура
4. Случайные
5. Растворение
6. Часы
7. Рябь
8. Блеск
9. Воронка
10. Отражение
11. Чертово колесо
12. Поворот
13. Окно
14. Орбита
15. Плавный вылет
3!=3*2*1=6
три умножить на 2 умножить на 1=6
ответ в
ответ в
var
a, b, c, D: real;
begin
write('A= ');readln(a);
write('B= ');readln(b);
write('C= ');readln(c);
D := b * b - 4 * a * c;
if D < 0 then
writeln('Нет корней')
else
if D = 0 then
writeln('x1=', -b / (2 * a))
else
if D > 0 then
begin
writeln('x1= ', (-b - sqrt(d)) / (2 * a));
writeln('x2= ', (-b + sqrt(d)) / (2 * a));
end;
end.