Program SummaKv;
var
n, i: integer;
begin
n := 0;
for i := 1 to 100 do
n := n + sqr(i);
writeln('Сумма квадратов первой сотни чисел = ', n);
end.
Здесь квадрат числа 100 так же включается в сумму.
Відповідь вікно папка ярлик
Var s: array[1..4] of string=('тысяч - ','сотен - ','десятков - ','единиц - ');
<span> nm: string;
</span><span> i: integer;
</span><span>begin
</span><span> write('n = '); readln(nm);
</span><span> for i:=1 to 4 do
</span><span> writeln('цифра ',s[i],nm[i]);
</span><span>end.
</span>
n = 9214
<span>цифра тысяч - 9
</span><span>цифра сотен - 2
</span><span>цифра десятков - 1
</span><span>цифра единиц - 4
</span>
1) при помощи смайликов
2)... Касперского
3).... мыши