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
S - текст V - скорость печатания каждой девочки
Печатают вдвоём:
S/(2*V) = 1 час --->S = 2*V
Печатают втроём:
S/(3*V) = 2*V/ (3*V) =2/3часа =120/3 = 40 мин
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
for var a:=1 to 9 do
for var b:=1 to 9 do
for var c:=1 to 9 do
if 100*a+10*b+c=5*a*b*c then Write(a,b,c,' ');
end.
<u>Результат</u>
175
Если мощность алфавита равна 256 символов, то 1 символ = 1 байту.
Тогда 8192 символа = 8192 байт = 8 Кбайт = 1/128 Мбайт.
Может быть, вы это имели ввиду?
Готово.................
<span>1-г
2-в
3-д
4-а
5-б</span>