Чему равно значение переменной s после выполнения данного алгоритма? алг сумма квадратов (цел s) рез s нач нат n s : =0 для n от 1 до 3 нц s : =s+n кц кон а) 24 б) 16 в) 10 г) 6

6ответ   это чёртово правило о коротких ответах

Число авс может принимать значение от 123 до 987 исходя из этого пишем программу var     ast,bst,cst,s: string;     i,a,ab,abc,bcb: integer;     f: boolean;                                       {признак того, что решение найдено} begin for i: =123 to 987 do begin if f=false then   begin   s: =inttostr(i);   ast: =s[1];   bst: =s[2];   cst: =s[3];   a: =strtoint(ast);   ab: =strtoint(ast+bst);   abc: =strtoint(ast+bst+cst);       bcb: =strtoint(bst+cst+bst);   if a+ab+abc=bcb then f: =true;   if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then f: =false; {цифры  не должны повторяться}   end end; if f=true then writeln(a,'+',ab,'+',abc,'=',bcb) else writeln('решения нет') end.

Var   a, b, c: byte; begin   for a : = 0 to 9 do     for b : = 0 to 9 do       for c : = 0 to 9 do         if (a + single.parse(a.tostring() + b. + single.parse(a.tostring() + b.tostring() + c. =             single.parse(b.tostring() + c.tostring() + b. then         begin           writeln(string.format('{0} + {0}{1} + {0}{1}{2} = {1}{2}{1}   |   a = {0}; b = {1}; c = {2}', a. b. c.;         end; end.