сервис вопросов и ответов1)Дано слово. Удалить из него все буквы "а". 2)Дан текст. Переставить слова текста в обратном порядке.
5-9 класс|
|
Kvintor
21 дек. 2013 г., 13:26:18 (10 лет назад)
Yan228
21 дек. 2013 г., 14:04:12 (10 лет назад)
1)
var
s,r:string;
i:integer;
begin
readln(s);
r:='';
for i:=1 to length(s) do
if s[i]<>'a' then r:=r+s[i];
writeln(r);
end.
2)
текст разделяем знаками препринания
var
t: array [1..100] of string;
p, s, r: string;
f, i, j, k: integer;
begin
p := ' ,.!?;:-';
readln(s);
k := 0;
r := '';
for i := 1 to length(s) do
begin
f := 0;
for j := 1 to length(p) do
if s[i] = p[j] then f := 1;
if f = 0 then r := r + s[i]
else
begin
k := k + 1;
t[k] := r;
r := '';
end;
if i=length(s) then
begin
k := k + 1;
t[k] := r;
end;
end;
for i := k downto 1 do
write(t[i], ' ');
end.
Ответить
Другие вопросы из категории
Нароод, помогите пожалуйста:33 Сколько существует различных звуковых сигналов, состоящих из последовательностей коротких и длинных звонков? Длина каждого
сигнала — 6 звонков.
Определить количество информации
которая содержит на печатном листе бумаги. Если на одной стороне 10 строк по 67 символов в строку.
Производилась двухканальная (стерео) звукозапись с частотой
дискретизации 16 кГц и 24-битным разрешением. В результате был получен файл
размером 60 Мбайт, сжатие данных не производилось. Каково время звучания
этого звукового файла (время выразить в целых минутах)?
1)Определить если в
составе двухзначного
числа одинаковые цифры.
2)Вводятся 2 числа одного
ли они знака?
3)Вводиться двухзначное
число, посчитать
произведение чисел.
4)Принадлежит ли х
отрезку 1.5?
5)является ли ввод с
порядковым номером у
высокосным или нет
6)Вводиться 4 числа,
посчитать сумму
произведений
отрицательных чисел.
7)Вводиться 5 чисел найти
сумму чисел меньше 3, и
произведение чисел
больше 5.
8)Вводиться число
определить его знак.
9)Вводиться 6 чисел найти
сумму произведений тех
из них которые больше 10.
Читайте также
Решить задания на языке программирования в Turbo Pascal: 1) Выполните тестирование программы: опишите как будут меняться значения переменных и
что появится на экране в результате выполнения программы. Для переменной S ввести строку - 'аб2в457где245*ж'
Program z2;
uses crt;
var s:string;
k,sum,i,n:integer;
begin
readln(s);
i:=1;
repeat
val(s[i],n,k);
i:=i+2;
sum:=sum+n;
writeln(n);
until i>length(s);
writeln(sum);
readkey;
end.
2) Дано предложение. Удалить из него все буквы с
Решить задачи на языке программирования в Turbo Pascal: 1) Дан массив, состоящий из 10 чисел, значения могут быть
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
Дана строка, состоящая из заглавных английских букв и цифр. Вывести первый символ строки.Входные данные:В единственной строке входного по
тока дана строка символов, длина которой не превышает 255.
Помогите, пожалуйста, очень срочно
1. Чему будет равняться x после выполнения фрагмента программы:
x:=0;
repeat
x:=x+8
until x>=21.
2. Дано описание массива
var mas: array [-22;0] of integer;
Сколько элементов содержит данный массив?
3.Определите, что делает следующая программа, и какой результат она выдаст на заданном массиве (1,4,0,-1,-4)
Program n1
const n=5
var a: array [1...n] of integer;
i,b: integer;
begin
b:=a[1];
for i:=2 to n do
if a[i] writeln (b);
end.
4. Допустим, имеется одномерный массив, содержащий от 0 до 49 включительно. Требуется исключить из него все элементы, значения которых меньше 15.
Вам разрешено заменять в исходном слове одну букву на другую так,чтобы получившееся слово было существительным в именительном падеже. Пример:слон-слог.
Менять местами буквы запрещено.Запишите цепочки превращений следующих слов.
муха-слон
Вы находитесь на странице вопроса "1)Дано слово. Удалить из него все буквы "а". 2)Дан текст. Переставить слова текста в обратном порядке.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.