Ответы на вопрос:
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.
Популярно: Информатика
-
mymrina0508.01.2023 04:49
-
medniabdulkadyrova1601.10.2022 17:05
-
romandichii129.03.2022 11:54
-
missvolkova200129.03.2021 14:48
-
viktoriapleva23.03.2023 01:27
-
катябэд3731.10.2021 12:34
-
victoriyasergi28.08.2021 20:04
-
kozaksolomia120.09.2020 13:29
-
poli14520.01.2023 23:41
-
646674353211.02.2022 23:44