PascalABC, Составьте программу, которая введенное с клавиатуры слово выводит в конце строки, а затем по буквам, начиная с первой, переставляет в начало строки.
PascalABC, Составьте программу, которая введенное с клавиатуры слово выводит в конце строки, а затем по буквам, начиная с первой, переставляет в начало строки.
Гость
Ответ(ы) на вопрос:
Гость)напиши куда слово встовлять(вначало, вконец, посередине...);
program z2;
var s,s1:string;
a:integer;
begin
write('Введите слово: ');read(s1);
write('Введите строку: ');read(s);
s:=s+' ';
a:=length(s);
writeln(a);
insert(s1,s,a+1);
writeln('Преобразованная строка: ',s);
end.
2)
program z1;
var s:string;
i,kol:integer;
begin
writeln('Введите строку');
read(s);
kol:=0;
for i:=1 to length(s) do
if (s<>' ')and(s<>'1')and(s<>'2')and(s<>'3')and
(s<>'4')and(s<>'5')and(s<>'6')and(s<>'7')and
(s<>'8')and(s<>'9')and(s<>'0') then inc(kol);
writeln(Kol);
end.
Не нашли ответ?
Похожие вопросы