Зайди на своём пк в power point
1. Упростим исходную логическую функцию
Для удобства записи будем использовать общепринятые сокращения. Операцию логического сложения (дизъюнкцию) "∨" будем обозначать знаком "+". Логическое умножение (конъюнкцию) "∧" будем обозначать знаком умножения (точкой) или опускать, как принято в алгебре. Вместо знака логического отрицания будем использовать надчеркивание.
2. Переведем в двоичную систему счисления заданные значения A, B, C:
3. Построим таблицу истинности для функции у
4. Переведем результат в десятичную систему счисления
var
a, b: real;
begin
writeln('введите длину');
readln(a);
writeln('введите ширину');
readln(b);
writeln('периметр прямоугольника ', 2 * (a + b));
end.
2 и 5 возможно, хотя не уверен, странное немного задание<span />
Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.