Аааа, почему никто не знает...или просто ленивые, сижу над этим заданием и ничего не понимаю)
Program inf;
var
ish: longint;
otvet : real;
begin
readln(ish);
if ish mod 5 = 0 then
otvet := ish*4
else
otvet := ish/25;
writeln(otvet);
end.
Это логические выражения, которые решаются с помощью Таблицы Истинности, которая состоит из 2-х частей: в левой части - все возможные значения аргументов (в первом примере их 2- А и В, во 2- А, В, С). В левой части значения, полученные от выполнения лог. операций (здесь их 3- лог.умножение(как и в математике), лог.сложение( тоже похоже, но 1+1=1, а не 2 как в обычной арифметике) и лог.отрицание (инверсия), т.е противоположное значения. Например 1, а инверсия 0, и наоборот. Задачу сделаю в файле.
