Написать программу, чтобы при нажатии клавиши 2 удалялся каждый второй символ строки - Pascal ABC

Формулировка задачи:

Тема: строки. Написать программу, чтобы при нажатии клавиши 2 удалялся каждый второй символ строки, при нажатии клавиши 3 - каждый третий, при нажатии 4 - каждый четвертый.

Код к задаче: «Написать программу, чтобы при нажатии клавиши 2 удалялся каждый второй символ строки - Pascal ABC»

textual
uses crt;
var s:string;
    i,k:byte;
begin
writeln('Введите строку');
readln(s);
repeat
writeln('Нажмите клавиши 2,3 или 4');
readln(k);
until k in [2..4];
for i:=length(s) downto 1 do
if i mod k=0 then delete(s,i,1);
write(s)
end.

14   голосов, оценка 3.929 из 5


СОХРАНИТЬ ССЫЛКУ