Дано натуральное число. определить сумму квадратов его цифр паскаль цмкл while

var a,b,s: integer; begin readln(a); while a> =10 do begin b: =a mod 10; s: =s+sqr(b); a: =a div 10; end; a: =a*a; s: =s+a; writeln(s); readln; end.в s накапливаем сумму квадратов, b это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!

 

Файлы: 1. primera.dat 2. primera.doc 3. merchant.doc 4. k-mer.doc 5. omerta.doc 6. temerlan.docx 1) *mer? .doc - отбирает файлы с расширением .doc и именем (я буду называть именем всё без расширения), оканчивающимся на mer и еще какую-то букву. будет отобрано только файл 2. 2) ? *mer? .doc - тут по сравнению с предыдущим добавляется условие, что перед mer должно быть что-то еще. если в прошлом случае был 1 файл, то и в этом не больше одного. 3) *mer*? .doc - файлы с именем, содержащим mer, но не оканчивающимся на него и расширением .doc. отберутся файлы 2, 3, 5 - три файла. 4) *? mer*? .doc - тут mer должно еще и не быть в начале, по сравнению с предыдущим. будут отобраны файлы 2 и 5. ответ. 3.

Const     n = 15; var     b: array[1..n] of integer;     min,max,i: integer; begin randomize; write('b(',n,'): '); for i: = 1 to n do       begin       b[i]: =random(71)+130;       write(' ',b[i])       end; writeln; max: =b[1]; min: =b[1]; for i: = 2 to n do       begin       if b[i]< min then min: =b[i];       if b[i]> max then max: =b[i]       end; writeln('min(b) = ',min); writeln('max(b) = ',max); writeln('max(b) - min(b) = ',max-min); end.