Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры слово Ѕ, состоящее
из 4 букв, и выполняет с ним следующие операции:
a) выводит отдельные символы слова по одному на каждой строке - сначала
первый символ, затем второй и так далее,
b) выводит отдельные символы слова по одному на каждой строке - сначала
последний символ, затем - предпоследний и так далее,
с) формирует новое слово S1, которое получается из исходного чтением
символов справа налево, например, из слова арба должно получится слово
абра, а из слова аbcd - dcba. Обратите внимание: новое слово должно быть
сформировано и храниться в памяти компьютера, недостаточно просто
вывести переставленные буквы на экран.
d) формирует новое двухбуквенное слово S2, состоящее из первой и
последней буквы исходного слова.
из 4 букв, и выполняет с ним следующие операции:
a) выводит отдельные символы слова по одному на каждой строке - сначала
первый символ, затем второй и так далее,
b) выводит отдельные символы слова по одному на каждой строке - сначала
последний символ, затем - предпоследний и так далее,
с) формирует новое слово S1, которое получается из исходного чтением
символов справа налево, например, из слова арба должно получится слово
абра, а из слова аbcd - dcba. Обратите внимание: новое слово должно быть
сформировано и храниться в памяти компьютера, недостаточно просто
вывести переставленные буквы на экран.
d) формирует новое двухбуквенное слово S2, состоящее из первой и
последней буквы исходного слова.
More Questions From This User See All
Answers & Comments
var
i:integer;
s,str,newWordOne,newWordTwo:string;
begin
writeln('введите слово');
readln(s);
writeln;
for i:=1 to length(s) do begin
newWordOne:=newWordOne+s[i];
writeln(s[i]);
end;
writeln;
writeln(newWordOne);
writeln;
for i:=length(s) downto 1 do begin
newWordTwo:=newWordTwo+s[i];
writeln(s[i]);
end;
writeln;
writeln(newWordTwo);
writeln;
str:=s[1]+s[length(s)];
writeln(str);
readln;
end.