Срочно! В Паскале ABC.Дано слово S1 получить слово S2 образованное буквами слова S1, стоящими на четных местах.Решить циклом с параметром.Заранее
5-9 класс
|
спасибо.
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.
Другие вопросы из категории
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
цифры. Выясните, какая цифра соответствует при этом букве «т», если известно, что: сумма цифр слова «бот» равна 8; сумма цифр слова «вол» равна 9; сумма цифр слова «болт» равна 11; сумма цифр слова «лото» равна 12.
цифры.выясните,какие цифры каким буквам соответствуют,если известно,что:
1)сумма цифр слова "бот" равна 8
2)сумма цифр слова "вол" равна 9
3)сумма цифр слова "болт" равна 11
4)сумма цифр слова "лото" равна 12