Напишите программу в паскале, которая выводит на экран только нечётные символы (символы под номерами 1, 3, 5, из текста пользователя.

Var s,null: string; i: integer; begin readln(s); for i: = 1 to length(s) do  if i mod 2 = 1 then  null: =null+s[i]; writeln(null); end.

1) var a: array[1..100,1..100] of real; i,j: integer; n,m: integer; begin write('rows='); readln(n); write('cols='); readln(m); for i: =1 to n do begin for j: =1 to 2 do begin write('[',i,',',j,']='); readln(a[i,j]); end; for j: =3 to m do a[i,j]: =a[i,j-1]+a[i,j-2]; end; for i: =1 to n do begin for j : = 1 to m do write (a[i,j]: 8: 3); writeln; end; readln; end .2)  var a: array[1..6,1..3] of real; i,j: integer; begin randomize; for i: =1 to 6 do begin j: =1; a[i,1]: =sqr(i+j); a[i,2]: =random(18)-9; a[i,3]: =a[i,1]/2+a[i,2]/2; for j: =1 to 3 do write(a[i,j]: 8: 1); writeln; end; readln; end . но это на языке паскаль я фиг знает какой тебе нада тут два варианта

Сперва зазвонит он  обычным звонком,  потом говорит  чьим-нибудь голоском.  (телефон)  хоть по объёму и мала,  информацию хранит она.  знаем все устройство это  называется…….  (дискета)  телефоны сохраняет, адреса и имена,записать все то, что нужно нам она.есть у всех она, конечно, у девчонки и мальчишки,догадались, что же это? книжка) грызть не любит ничего,сыром не питается! монитор без нее грустит,сайт не открывается! (мышь) под крышей - четыре ножки,  на крыше - суп да ложки.  стоит весёлый, светлый дом. проворных много в нём.там пишут и считают,рисуют и читают. (школа)