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.
Тестовое решение: Исходная строка: А роза упала на лапу Азора Азора лапу на упала роза А
olgavbaranova
11.02.2023
Var x,y:integer; vcp,dx,dy:real; begin Write('Возраст Тани='); Read(x); Write('Возраст Мити='); Read(y); vcp:=(x+y)/2; dx:=x-vcp; dy:=y-vcp; Writeln('Средний возраст равен ',vcp); if dx>0 then begin Writeln('Таня старше среднего возраста на ',dx,' лет,'); Writeln('а Митя младше среднего возраста на ',-dy,' лет.') end else if dx=0 then Writeln('Таня и Митя ровесники') else begin Writeln('Таня младше среднего возраста на ',-dx,' лет,'); Writeln('а Митя старше среднего возраста на ',dy,' лет.') end end.
Тестовое решение: Возраст Тани=15 Возраст Мити=12 Средний возраст равен 13.5 Таня старше среднего возраста на 1.5 лет, а Митя младше среднего возраста на 1.5 лет.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
складі розповідь як інтернет речей допомагає лісівникам і рятувальникам у бородьбі з лісовими пожежами
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.
Тестовое решение:
Исходная строка: А роза упала на лапу Азора
Азора лапу на упала роза А