//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>
<span>Америка в 1877 году Шарлем Кро </span><span>и Томасом Эдисоном - граммафон</span>
1923 год. Джонг Мажер – Изобретение Электрофона и Калейдофона в Берлине
Магнитофон <span>в Берлине в 1935</span>
1 - Надпись
2 - Эллипс
6 - Распылитель
10 - Масштаб
На Паскале:
program MyProgram;
var n,i,fact: integer; sum: real;
begin
sum:=0;
fact:=1;
writeln('Введите число N.');
readln(n);
for i:=1 to n do
begin
fact:=fact*i;
sum:=sum+1/fact;
end;
writeln('Сумма 1/1!+1/2!+1/3!+...+1/N = ',sum);
end.