Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры слово Ѕ, состоящее из 4 букв, и выполняет с ним следующие операции:
a) выводит отдельные символы слова по одному на каждой строке - сначала
первый символ, затем второй и так далее,
b) выводит отдельные символы слова по одному на каждой строке - сначала
последний символ, затем - предпоследний и так далее,
с) формирует новое слово S1, которое получается из исходного чтением
символов справа налево, например, из слова арба должно получится слово
абра, а из слова аbcd - dcba. Обратите внимание: новое слово должно быть
сформировано и храниться в памяти компьютера, недостаточно просто
вывести переставленные буквы на экран.
d) формирует новое двухбуквенное слово S2, состоящее из первой и
последней буквы исходного слова.
565п
2
28.02.2021 20:33
0
Другие вопросы по теме Информатика
Andrey086
24.11.2019 13:34
ВаняСуліма
24.11.2019 13:33
Sonya112
24.11.2019 13:30
moseva2399
24.11.2019 13:24
kkoluzhonokp08din
04.06.2019 04:00
Sonya121s
04.06.2019 04:00
recebramazanov
17.09.2019 00:50
sofia0lord0dominator
12.01.2021 10:45
Популярные вопросы
- Двадцать миллиардов пятьдесят тысяч семьдесят. семь миллиардов...
1 - Приставка корень 2 суффикса окончания слова приуралье...
3 - При кокой тимпературе можно расплавить свинец...
2 - 0,7(y-0,25)=сорок девять пятидесятых...
3 - 1) площадь сада 600м2, его ширина 60 м. чему равен периметр сада?...
3 - Два миллиона двести двадцать две тысячи двести двадцать два. два...
2 - Найдите значение произодной в точке x=2.25...
1 - Вравносторонний трапеции диагонали является биссектрисами острых...
3 - Найти знаениепроизводной в очке x=-3...
2 - Очем заставляет задуматься сказка василиса прекрасная...
3
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.