Ам, ну там сверху есть "выравнивалки"
Попробуй поэкспериментировать с полосками ("выравнивалками")
50*40=2000стр. в книге
2000*60=120000 символов
120000:1=12000 байт
Program nasledstvo;
var all, inmonth, time:real; //all - размер наследства, inmonth - затраты в месяц
begin
readln(all, inmonth);
time=(all/inmonth)/12;
wiriteln(time);
end.
Потому что (и) значит, что условие верно толькое если все его подусловия верны; представим (и) в виде умножения, а множители: 0(неверно) и 1(верно), тогда по правилам умножения получится:
1*0=0, 0*1=0, 0*0=0, 1*1=1, т.е если оба множители 1(верны), то и все выражение верно.
со сложением также:
или - значит выражение верно, если одно из условий выполнятся, берем слагаемые: 0(неверно) и 1(верно), по правилам сложения:
1+0=1, 0+1=1, 0+0=0, 1+1=1, т.е если хотя бы 1 слагаемое верно, то и все выражение верно.
Var
sum,n,n1,n2,n3:integer;
begin
readln(n);
n1:=n div 100;
n3:=n mod 10;
n2:=(n mod 100) div 10;
sum:=n1+n2+n3;
if sum mod 2 = 0 then
writeln("Четное")
else
writeln("Не четное");
end.