<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите натуральное четырехзначное число:');
var p:=1;
loop 4 do begin
p:=p*(n mod 10);
n:=n div 10
end;
Writeln('Произведение цифр числа равно ',p)
end.
<u>Пример</u>
Введите натуральное четырехзначное число: 2895
Произведение цифр числа равно 720
begin
var (a,b,c):=ReadReal3('Введите коэффициенты a b c:');
var d:=Sqrt(b*b-4*a*c);
if d=0 then Writeln('x=',-b/2/a)
else Writeln('x1=',(-b-d)/2/a,', x2=',(-b+d)/2/a)
end.
<u>Пример</u>
Введите коэффициенты a b c: 1 -0.5 -7.5
x1=-2.5, x2=3
Каждое уравнение имеет вид
(A | B) & (~A | ~B) = 1
Отсюда следует, что
(A | B) = 1 и (~A | ~B) = 1
Из первой скобки следует, что по крайней мере одно из высказываний А, В истинно. Из второй - что по крайней мере одно из высказываний ~A, ~B истинно. Поэтому ровно одно из высказываний A, B истинно, а другое ложно.
Пусть мы знаем x1, x2, x3, x5, x7, x9. Тогда остальные переменные определены однозначно: если x1=x2, то x4=~x3, x6=x5, x8=~x7, x10=x9; иначе всё наоборот.
Эти 6 переменных независимы, поэтому общее количество решений = количеству всевозможных наборов x1, x2, x3, x5, x7, x9 = 2^6 = 64
Это вид компьютерной графики посвященной созданиям изображении или видео