79

Срочно! В Паскале ABC. Дано слово S1 получить слово S2 образованное буквами слова S1,…

26 февраля 2023

Срочно! В Паскале ABC. Дано слово S1 получить слово S2 образованное буквами слова S1, стоящими на четных местах. Решить циклом с параметром. Заранееспасибо.

категория: информатика



85

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.

Знаете ответ?


Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...