(0 && 1) || ¬(0 || 1) && ¬1 = 0 || ¬1 && 0 = 0 || 0 && 0 = 0 && 0 = 0 (ложь)
var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
Любые книги и чё-нить про них
Ответ на чё-нить: читай краткое содержание выбранных книг и списывай фрагменты краткого содержания
Var
x, y, z: integer ;
begin
x := 19;
y := 3;
z := y * 2;
y := x mod y;
x := x - z;
y := y + z;
writeln('x = ', x, ', y = ', y, ', z = ', z);
end.
Вывод
x = 13, y = 7, z = 6
Компьютер, калькулятор, нумератор.