PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018 Внимание! Если программа не работает, обновите версию!
function Sed(n:integer):integer; // Возвращает сумму четных цифр в числе begin (n,Result):=(Abs(n),0); while n>0 do begin var d:=n mod 10; if d.IsEven then Result+=d; n:=n div 10 end end;
begin var (a,b):=ReadInteger2('Введите два целых числа через пробел:'); var (s1,s2):=(Sed(a),Sed(b)); if s1>s2 then Writeln(a) else Writeln(b) end.
Пример Введите два целых числа через пробел: 6213 5841 5841
begin var r:=Abs(ReadReal('Введите действительное число:')); if Trunc(r).IsEven then Writeln('YES') else Writeln('NO') end.
Бд- материалов (статей, расчётов, нормативных актов, судебных решений и иных подобных материалов), систематизированных таким образом, чтобы эти материалы могли быть найденыи обработаны с электронной вычислительной машины (ЭВМ). Систе́ма управле́ния ба́зами да́нных (СУБД) — совокупность программных и лингвистических средств общего или специального назначения, обеспечивающих управление созданием и использованием базданных. управление данными во внешней памяти (на дисках); управление данными в оперативной памяти с использованием дискового кэша; журнализация изменений, резервное копирование и восстановление базы данных после сбоев; 2используются для определения, хранения, обработки данных. используется везде, даже на стационарных компьютерах 3 цель в том, чтоб предложить пользователю абстрактное представление данных, скрыта конкретные особенности хранения и управления ими
1. 12
2. 0
3. 14
4. 10
Объяснение:
1. -2×(-6) = 12
2. -2×0=0
3. 2×7=14
4. 2×5=10