Дана строка символов. Вывести все нечётные символы этой строки. Что не так?

@SashaZ565 · Регистрация: 15.10.2013

Студворк — интернет-сервис помощи студентам

var
st1:string;
i,n:integer;
begin
st1:=edit1.Text;
n:=length(st1);
for i:=1 to n do begin
if frac (i/2)<>0 then
Edit2.Text:=string(i);
end;
end;
end.

@FIL · 15.10.2013, 22:00

Что такое string(i)?

@SashaZ565 · 15.10.2013, 22:18 **[ТС]**

я думал что Edit2.Text:=string(i); можно использовать как вывод

@cotseec · 15.10.2013, 22:28

Edit2.Text:=st1[i];

@SashaZ565 · 15.10.2013, 22:35 **[ТС]**

как можно вывести не один ответ а несколько?
задача написана правильно?

@cotseec · 15.10.2013, 22:37

Edit2.Text := Edit2.Text + st1[i] + ' ';

@FIL · 15.10.2013, 22:38

Delphi

1	Edit2.Text := Edit2.Text + st1[i];

@SashaZ565 0 / 0 / 0 Регистрация: 15.10.2013 Сообщений: 4
		1
	Дана строка символов. Вывести все нечётные символы этой строки. Что не так? 15.10.2013, 21:48. Показов 1731. Ответов 6 Метки нет (Все метки) var st1:string; i,n:integer; begin st1:=edit1.Text; n:=length(st1); for i:=1 to n do begin if frac (i/2)<>0 then Edit2.Text:=string(i); end; end; end. 0

@FIL Модератор 3488 / 2611 / 741 Регистрация: 19.09.2012 Сообщений: 7,972
	15.10.2013, 22:00	2
	Что такое string(i)? 0

@SashaZ565 0 / 0 / 0 Регистрация: 15.10.2013 Сообщений: 4
	15.10.2013, 22:18 [ТС]	3
	я думал что Edit2.Text:=string(i); можно использовать как вывод 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	15.10.2013, 22:28	4
	Edit2.Text:=st1[i]; 1

@SashaZ565 0 / 0 / 0 Регистрация: 15.10.2013 Сообщений: 4
	15.10.2013, 22:35 [ТС]	5
	как можно вывести не один ответ а несколько? задача написана правильно? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	15.10.2013, 22:37	6
	Edit2.Text := Edit2.Text + st1[i] + ' '; 1

Опции темы