1.Напишите программу, которая подсчитывает стоимость телеграммы, текст которой вводится с...

Question

1.Напишите программу, которая подсчитывает стоимость телеграммы, текст которой вводится с клавиатуры.

2.Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Вывести строку, содержащую эти же слова (разделенные одним пробелом), но расположенные в обратном порядке.

Comments

пожалуйста))

---

если оба то очень хорошо))

---

составьте программу и больше ничего не надо))

---

Вам сказать, как это называется или сами догадаетесь?

---

и пожалуйста если не трудно вот эти задачи тоже))

---

Задача 1. Задано массив целых чисел упорядочений по убыванию А[1;n] и число В. Для числа В найти такое место среди элементов массива А, чтоб после вставкичисла В на это место упорядоченность массива не нарушалась. Если впоследствии равенства между собою значений элементов массива А число может вставляться на разные места, то следует выяснить самое близкое к началу массива место.Задача 2. Даны массив A(13),состоящий из элементов, среди которых есть положительные, отрицательные и равные нулю. Н

---

а есть другие варианты?

---

Хорошо

---

да

---

Тогда расскажите, как стоимость считать? Стоимость слова умножить на количество слов?

Answer 1

Program Tlg;
var
  s:string;
  i,n:integer;
  p:real;
begin
  Writeln('Введите текст телеграммы, разделяя слова ровно одним пробелом');
  Readln(s);
  Write('Укажите стоимость слова в рублях: '); Read(p);
  n:=1;
  for i:=1 to length(s) do
    if s[i]=' ' then Inc(n);
  Writeln('Стоимость телеграммы, руб: ',n*p:0:2)
end.

Тестовое решение:
Введите текст телеграммы, разделяя слова ровно одним пробелом
Грузите апельсины бочками братья Карамазовы
Укажите стоимость слова в рублях: 3.78
Стоимость телеграммы, руб: 18.90

program RevStr;
var
  s,s1:string;
  i,j,n:integer;
begin
  Write('Исходная строка: '); Readln(s);
  s:=' '+s;
  n:=length(s);
  i:=n; j:=n; s1:='';
  while i>0 do begin
    j:=i;
    while (s[j]=' ') and (j>1) do Dec(j); { удалили пробелы }
    i:=j;
    while (s[j]<>' ') and (j>1) do Dec(j); { пробежали по непробелам }
    if j>0 then s1:=s1+' '+Copy(s, j+1, i-j);
    i:=j-1
  end;
  s1:=Copy(s1,2,length(s1)-1);
  Writeln(s1)
end.

Тестовое решение:
Исходная строка:   А    роза    упала   на лапу Азора  
Азора лапу на упала роза А

Comments

можете пожалуйста решить эти две задачи?

---

Вы реально думаете, что меня баллы интересуют?

---

баллы получите))

---

да

---

Вы их разместили среди заданий?

---

хоть завтра

---

не обязательно сегодня

---

очень надо

---

Задача 1. Задано массив целых чисел упорядочений по убыванию А[1;n] и число В. Для числа В найти такое место среди элементов массива А, чтоб после вставки
числа В на это место упорядоченность массива не нарушалась. Если впоследствии равенства между собою значений элементов массива А число может вставляться на разные места, то следует выяснить самое близкое к началу массива место.

Задача 2. Даны массив A(13),состоящий из элементов, среди которых есть положительные, отрицательные и равные нулю.

---

нет, я видел какие у вас баллы)) молодец то какой умный)) буду благодарен если поможете))