1) begin var a:=ReadString('a->'); Println('Сумма больше ',a.JoinIntoString(' ').ToIntegers.Sum>ReadInteger('k->')?'True':'False'); Println('a четное ',a.ToInteger.IsEven); end.
Пример: a-> 123456 k-> 22 Сумма больше False a четное True
2) begin var a:=ReadInteger('a->'); Println('a нечетно',a.IsOdd); var b:=a.ToString.JoinIntoString(' ').ToIntegers; Println('Первая равна x',b.First=ReadInteger('x->')?'True':'False'); Println('Последняя равна y',b.Last=ReadInteger('y->')?'True':'False'); end.
Пример: a-> 456485 a нечетно True x-> 5 Первая равна x False y-> 5 Последняя равна y True
1)необходимо аккуратно обращаться с проводами; запрещается работать с неисправным компьютером; нельзя заниматься очисткой компьютера, когда он находится под напряжением; недопустимо самостоятельно проводить ремонт оборудования при отсутствии специальных навыков; нельзя располагать рядом с компьютером жидкости, а также работать с мокрыми руками; нельзя в процессе работы с ПК прикасаться к другим металлическим конструкциям (например, батареям); не допускается курение и употребление пищи в непосредственной близости с ПК и др
//Версия 3.3, сборка 1634 (14.02.2018)
1)
begin
var a:=ReadString('a->');
Println('Сумма больше ',a.JoinIntoString(' ').ToIntegers.Sum>ReadInteger('k->')?'True':'False');
Println('a четное ',a.ToInteger.IsEven);
end.
Пример:
a-> 123456
k-> 22
Сумма больше False
a четное True
2)
begin
var a:=ReadInteger('a->'); Println('a нечетно',a.IsOdd);
var b:=a.ToString.JoinIntoString(' ').ToIntegers;
Println('Первая равна x',b.First=ReadInteger('x->')?'True':'False');
Println('Последняя равна y',b.Last=ReadInteger('y->')?'True':'False');
end.
Пример:
a-> 456485
a нечетно True
x-> 5
Первая равна x False
y-> 5
Последняя равна y True