Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.
Карта города представляет город
Структура документа (в Word) представляет документ
Схема этажа для эвакуации представляет этаж здания
Содержание книги представляет книгу
Герб государства представляет дух и идею этого государства
===== PascalABC.NET =====
begin
var a := ArrRandom(40, -99, 99);
a.Println;
var i := a.IndexMax;
a?[:i]
.Where(p -> p <> 0)
.Aggregate(Biginteger.One, (p, q) -> p * q)
.Print
end.