Var
n,S:integer;
Begin
S:=0;
Write('n = ');ReadLn(n);
repeat
n:=n div 10;
S:=S+n mod 10;
until n = 0;
WriteLn(S)
End.
Var a:array[1..20,1..20] of integer;i,j,n:integer;beginreadln(n);for i:=1 to n dofor j:=1 to n doread(a[i,j]);
for i:=1 to n dofor j:=1 to n doif a[i,j] mod n =0 then a[i,j]:=a[i,j] div n;
for i:=1 to n do beginfor j:=1 to n dowrite(a[i,j],' ');writeln;end;end.
<em>Program Zn;</em>
<em>var n,k,sum:integer;</em>
<em>Begin</em>
<em>Writeln('Введите натуральное число');</em>
<em>Readln(n);</em>
<em>While n<>0 do begin</em>
<em>k:= n mod 10;</em>
<em>if k mod 2 = 0 then sum:=sum+k;</em>
<em>n:= n div 10;</em>
<em>end;</em>
<em>writeln('Сумма четных чисел = ', sum);</em>
<em>end.</em>
<em>(Проверено и откомпелировано на Pascal.NET)</em>
Всё очень просто, черточки на линиях идущих из центра ответствуют значениям 5, 10 и 15, линий всего 5, значит диаграмма построена по 5 параметрам, следовательно взглянув на диаграмму мы видим что первое значение у нас 4, соответствует ячейке А1, второе значение 10 соответствует ячейке С1, третье значение 15 соответствует ячейке D1, четвертое значение 4, соответствующее ячейке Е1 и пятое значение 8 соответствующее ячейке F1