Составьте программу, которая выводит только нечетные символы введенного текса.

это по паскалю авс

Question

Асаф

24 мая, 23:56

+5

Ответы (1)

Знаете ответ на вопрос?

Витюха · Answer 1

Var s:string; i:integer;

begin

writeln ('Введите строку') ;

readln (s) ;

for i:=1 to length (s) do

if i mod 2 = 1 then write (s[i]) ;

end.

Составьте программу, которая выводит только нечетные символы введенного текса.это по паскалю авс