Ну, наверное, как то так это выглядит. Сам оформишь, как нужно
(A<span>*B)∨(A*</span>¬B) ≡ A
A B A*B (A*¬B) (A*B)∨(A*¬B)
1 1 1 0 1
1 0 0 1 1
0 1 0 0 0
0 0 0 0 0
Const pi=3.141593;
<span>var R,R1,H,V: real;
</span><span>begin
</span><span> write('радиус нижнего основания R: '); readln(R);
</span><span> write('радиус верхнего основания R1: '); readln(R1);
</span><span> write('высота конуса H: '); readln(H);
</span><span> V:=H*pi*(R*R+R*R1+R1*R1)/3;
</span><span> writeln('объем конуса V = ',V:7:3);
</span><span>end.
</span>радиус нижнего основания R: 10
<span>радиус верхнего основания R1: 15
</span><span>высота конуса H: 8
</span><span>объем конуса V = 3979.351
</span>
Uses
System;
var
d1, d2: DateTime;
s: string;
begin
Write('Введите дату в формате ДД.ММ.ГГГГ: ');
Readln(s);
d1 := DateTime.Parse(s); { получили дату }
d2 := d1.AddDays(-1);
Writeln('Предыдущий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
d2 := d1.AddDays(1);
Writeln('Следующий день: ', d2.Day, '.', d2.Month, '.', d2.Year);
end.
<u>Тестовое решение:</u>
Введите дату в формате ДД.ММ.ГГГГ: 31.12.2014
Предыдущий день: 30.12.2014
Следующий день: 1.1.2015