program p1;
uses crt; выводит окошко, где будет результат
var i,s:integer;
begin
s:=0;
for i:=10 to 99 do begin
s:=s+i;
end;
write(s);
end.
Uses crt;
const n=10;
var a:array[1..n] of integer;
s,i,min,k:integer;
begin
min:=1000;
for i:=1 to n do
begin
readln(a[i]);
if a[i]<min then begin min:=a[i]; k:=i; end;
end;
s:=0;
for i:=k+1 to n do
s:=s+a[i];
writeln(s);
end.
Using System;
static int Main()
{<span> int n = 1;</span>
<span> for (int i = 1; i <= 5; i++)
</span><span> {
</span><span> for (int z = 1; z <= i; z++)</span><span>
{</span><span>
Console.Write(n);
</span><span>Console.Write("\t");
</span><span>}
</span><span>n++;
</span><span>Console.Write("\n");
</span><span>}</span>return 0;
<span>}</span>
Ответ 33051 в восьмеричной Система счисления