randomize; {чтоб рандом был разный для каждого запуска програмы}
for i: = 1 to 100 do
if i mod 2 =0 then a[i] : = 2*random(100)+1; {формула нечетного числа}
else a[i]: =2*random(100);
end.
есличто непонятно - пиши в сообщения, растолкую
Ответ дал: Гость
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 это остатки от деления на десять, после цикла прибавляем последнюю цифру,которая меньше десяти, предворительно возведя её в квадрат!
Популярные вопросы