Фразу на русском языке необходимо перевести на язык Pascal.ABC
1. В программе будем использовать строковые переменные А и В, в которых не более 20 символов ;
2. В программе есть массив Т из 100 символьных элементов;
3. Ввести с клавиатуры 20 элементов массива А, начиная с 1-го ;
4. Вывести в одну строку массив B, в котором 20 элементов (первый элемент имеет номер 1);
5. Пока S положителен, увеличивайте эту переменную на значение X ;
6. Соедините в одну строку через пробелы строчные переменные Name и Кlass;
7. Если число А четное, то уменьшите его в 2 раза, иначе увеличьте на 1;
8. Переменную А вычислите как случайное число из отрезка [1,100];
9. Переменную А замените суммой двух последних цифр этого числа.
Var
s,s1:string;
begin
readln(s);
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;
if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
while pos(' в ',s)<>0 do
begin
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
s1:=s1+copy(s,1,pos(' в ',s)-1)+' на ';
delete(s,1,pos(' в ',s)+2);
end;
if (s[1]='в') and (s[2]=' ') then
begin
delete(s,1,1);
s:='на'+s;
end;
if (s[1]='В') and (s[2]=' ') then
begin
delete(s,1,1);
s:='На'+s;
end;
s:=s1+s;
writeln(s);
end.
Пример ввода 1:
запасти в зиму, приехать в год, приготовить в день, выпить лекарство в ночь
Пример вывода 1:
запасти на зиму, приехать на год, приготовить на день, выпить лекарство на ночь
Пример ввода 2(глубокие песни современной отечественной эстрады):
В в в в в в в в в в в в в в в в в в н.
Пример вывода 2:
На на на на на на на на на на на на на на на на на на н.