Задача 7: Таблица Бесконечную таблицу, строки и столбцы которой пронумерованы целыми числами начиная с 1 сверху вниз и слева направо, заполняют целыми числами 1, 2, 3 и т. д. Числа выписываются в соседние клетки по границам квадратов увеличивающегося размера.

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

1. utfa.fps

2.какую программу?

3. x(n)=5n²-4n-1

xn-нечётное тогда, когда n-чётное

x(0)=-1

x(2)=11

x(4)=63

x(6)=155

x(8)=287

x(10)=459

x(12)=671

x(14)=923

x(16)=1215

x(18)=1547

x(20)=1919

# include < stdio.h> int phi(int x){int i,k=0; if(x> 1)k+=phi(x-1)+phi(x-2); if(x< 2)k=x; return k; }      int main (void){int x; scanf("%d",& x); printf("%d",phi(x)); return 0; }