1) Совпадение каналов на смежных устройствах, могут вызвать помехи в работе беспроводной сети.
2) Погодные условия.
Var
a,b: integer;
begin
write('Введите 2 чисоа через пробел:');
readln(a,b);
if (a mod 2<>0)and(b-a=1)
then write ('Да')
else write('Нет');
readln;
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
try
var vData := ReadlnString('Введите дату по образцу дд.мм.гг:');
if vData = '' then Exit;
var s := vData.MatchValue('(\d\d\.){2}\d\d');
if s = vData then
begin
var d := DateTime.Parse(s);
$'День: {d.Day}{NewLine}Месяц: {d.Month}{NewLine}Год: {d.Year}'.Println
end
else
'Дата введена не по образцу'.Println
except
'Такой даты в календаре не существует'.Println
end
end.
1 задача.
Дом1-Алексей,столяр.
Дом2-Виктор,хирург.
Дом3-Михаил,окулист.
Дом4-Егор,токарь.