PascalABC.NET beginvar s := ReadReal('Число:').ToString.Remove('.','-');Println('Сумма:',s.ToArray.ConvertAll(c->c.ToDigit).Sum);Println('Разрядов:',s.Count);end.
В отличии от программы данной в другом ответе, эта в разы короче и быстрей, а также работает с отрицательными и вещественными числами.
Сестра мужа точно инженер Сын точно слесарь Муж может быть только учителем или юристом Отсюда следует, что экономист либо жена либо отец жены. Мне в равной мере трудно представить в одной футбольной команде мать и сына или деда и сына, но деваться некуда, приходится выбирать. Я бы выбрала мать, но поскольку феминизм у нас не особо развит, будем считать, что женщины на заводах в футбол не играют;-) Тогда получается, что - отец жены - экономист - жена - юрист, т.к. она не может быть учителем, иначе окажется одновременно старше и младше инженера - муж - учитель, т.к. не кровный родственник жене-юристу.
ПС.: Все таки вопрос кому играть в футбол за завод - 60-летнему дедушке или крепкой 40-летней бабе , - весьма спорный и субъективный.
begin clrscr; repeat Write('Выберите фигуру (1-квадрат, 2-прямоугольник)'); Readln(n);
case n of 1: begin write('Сторона квадрата='); readln(a); Write('S=', a * a); end; 2: begin write('Стороны прямоугольника='); readln(b, a); Write('S=', b * a); end; else exit; end; until false; end.
program z1;
var a,k,s: integer;
begin
write ('a = ');
readln (a);
s:=0;
k:=0;
repeat
s:=s+a mod 10;
k:=k+1;
a:=a div 10
until a=0;
writeln('s = ',s);
writeln('k = ',k)
end.