//PascalABC.Net 3.2
begin
var x:=readinteger ('Введите x: ');
var sum:=0;
repeat
sum+=x mod 10;
x:=x div 10;
until x=0;
writeln ('Сумма цифр: ', sum);
writeln ('Сумма заканчивается на 3: ', (sum mod 10)=3);
writeln ('Сумма четная - ', sum.Iseven);
end.
Машины первого поколения строились на основе электронных (электровакуумных) ламп.
<span>Рассмотрим, например, карандаш. Он состоит из деревянного корпуса и графитового стержня. Графитовый стержень — это существенный элемент карандаша, так как он определяет его главное назначение — писать, рисовать, то есть оставлять след на бумаге. Корпус служит для того, чтобы не ломался хрупкий графитовый стержень. Корпус — это вспомогательный элемент. Он может быть сделан не из дерева, а из другого материала (например, из пластмассы).</span>