Регистрация
marina0708
18.12.2021 21:59
Информатика
Есть ответ 👍

Задачи по Информатике: 4,5,6

226
331
Посмотреть ответы 1

Ответы на вопрос:

шрвлап
шрвлап
4,7(74 оценок)
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. тестовое решение: исходная строка:     а      роза      упала    на лапу азора    азора лапу на упала роза а

Популярно: Информатика