int main ()
{
int a[20];
int n, i;
n = 20;
for (i = 0; i < n; i++)
*(a + i) = i*(3 * i);
for (i = 0; i < n; i++)
printf ("%d ", *(a + i));
printf("\n");
for (i = 1; i < n - 1; i++)
*(a + i) = (*(a + i - 1) + *(a + i) + *(a + i + 1))/3;
for (i = 0; i < n; i++)
printf ("%d ", *(a + i));
printf("\n");
}
Как то так, но не уверен.
<span>var f,i:integer;
begin
f:=1;
for i:=2 to 173 do f:=f+i;
writeln(f);
end<span>.
Результат:
</span><span>15051</span></span>
3-2
4-4
5-1
Отметь как лучший, если не лень:) Бобра))
Var x,y,z:integer;
sr:real;
begin
read(x,y,z);
sr:=(x+y+z)/3;
writeln(sr:2:1);
end.
Ответ: утконос. Просто убирай все одинаковые буквы.