Емае сама ищю сори кнч! Блин сюда надо не более 20 символов
program sorevnovaniya;
var a,b,c: integer;
begin
writeln ('Введите результаты соревнований');
readln (a,b,c);
if (a<b) and (c<b) then writeln (b, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<c) and (a<c) then writeln (c, '-', 'результат',' ','победителя',' ', 'заплыва');
if (b<a) and (c<a) then writeln (a, '-', 'результат',' ','победителя',' ', 'заплыва');
end.
В шестнадцатеричной системе счисления для записи цифр, старше 9, приняты обозначения :
A₁₆ =10₁₀ ; B₁₆ =11₁₀ ; C₁₆ =12₁₀ ; D₁₆ =13₁₀ ; E₁₆ =14₁₀ ; F₁₆ =15₁₀
1. ABC₁₆ = 10·16² + 11·16 + 12 = 2748₁₀ = 2748
2. a₁₆ = 341₁₆ = 3·16² + 4·16 + 1 = 833₁₀ = 833
3. a₃ = 221₃ = 2·3² + 2·3 + 1 = 25₁₀ = 25
4. Условие можно прочитать по-разному
1010₁₆ = 1·16³ + 0·16² + 1·16 + 0 = 4096 + 16 = 4112₁₀ = 4112
10101₆ = 1·6⁴ + 0·6³ + 1·6² + 0·6 + 1 = 1296 + 36 + 1 = 1333₁₀ = 1333
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
