Масло-Масол
Соринка-росинка
а1 = 100
аn = 990
n = 90
S = (100+990)*90/2 = решишь сам))
Pascal
var
a,b : integer;
r : boolean;
begin
readln (a);
r := true;
b := a mod 10;
While a > 0 do
begin
if a mod 10 <> b then
begin
r := false;
a := 0;
end;
a := a div 10;
end;
if r then
writeln ('Все цифры числа одинаковы')
else
writeln ('Цифры числа различны');<span>
end.</span>
Это произведение
var p,i:integer;
begin
p:=1;
for i:=2 to 11 do
p;=p*i;
writeln (p);
end.
Это подсчёт i
var k,i:integer;
begin
k:=0;
for i:=2 to 11 do
k;=k+1i;
writeln (k);
end.
сумму не понятно чего?
Например: 643000. Чтобы найти сумму этих чисел нам надо сложить все числа указанные в числе. Получится: 6+4+3+0+0+0=13