Ответы на вопрос:
program slova;
uses crt;
var s1,s2: string;
i,k: integer;
begin
clrscr;
s2: ='';
write('введите слово: ');
readln(s1);
k: =length(s1);
for i: =1 to k do
if (i mod 2)=0 then s2: =s2+s1[i];
writeln('полученное слово: ',s2);
readkey;
end.
Популярно: Информатика
-
pandapurple04.06.2021 18:00
-
kskkksjsjsj15.02.2021 20:00
-
kozarmarjna1506.04.2020 07:17
-
СветланаРассвет11.09.2022 03:45
-
Annalove200016.06.2023 13:52
-
исма1917.07.2020 08:51
-
Olyaaa4Kaaaa15.04.2020 07:24
-
веранастякрас13.03.2023 09:56
-
котя38217.08.2020 21:43
-
СашаСтрела10.10.2021 20:06