Const Pi=3.1415926598; var c:integer; r,a,b,h:real; begin Writeln('Введите код вычисляемой величины: '); Writeln('1 - длина окружности'); Writeln('2 - площадь круга'); Writeln('3 - объем цилиндра'); Writeln('4 - объем параллелепипеда'); Write('-> '); Read(c); case c of 1: begin Write('Введите радиус окружности: '); Read(r); Writeln('Длина окружности равна ',2*Pi*r) end; 2: begin Write('Введите радиус круга: '); Read(r); Writeln('Площадь круга равна ',Pi*r*r) end; 3: begin Write('Введите радиус и высоту цилиндра: '); Read(r,h); Writeln('Объем цилиндра равен ',Pi*r*r*h) end; 4: begin Write('Введите длину, ширину и высоту параллелепипеда: '); Read(a,b,h); Writeln('Объем параллелепипеда равен ',a*b*h) end end end.
Пример работы Введите код вычисляемой величины: 1 - длина окружности 2 - площадь круга 3 - объем цилиндра 4 - объем параллелепипеда -> 3 Введите радиус и высоту цилиндра: 5 18.3 Объем цилиндра равен 1437.2786418585
Var s,sr:string; i,j,n:integer; pr:array of char=('.',',',';',':','!','?'); begin readln(s); s:=s.Trim; var ars:=s.ToWords(); s:=''; for i:=0 to ars.Length-1 do s+=ars[i]+' '; s:=s.Trim; i:=0; while i<>s.Length do begin inc(i); if (s[i] in pr) and (s[i-1]=' ') then delete(s,i-1,1); end; i:=0; while i<>s.Length-1 do begin inc(i); if (s[i] in pr) and (s[i+1]<>' ') then insert(' ',s,i+1); end; s:=s.Trim; writeln(s); end.
Пример ввода: Очень, очень ,очень , очень ,очень,очень много слов. Пример вывода: Очень, очень, очень, очень, очень, очень много слов.
Pi=3.1415926598;
var
c:integer;
r,a,b,h:real;
begin
Writeln('Введите код вычисляемой величины: ');
Writeln('1 - длина окружности');
Writeln('2 - площадь круга');
Writeln('3 - объем цилиндра');
Writeln('4 - объем параллелепипеда');
Write('-> '); Read(c);
case c of
1: begin
Write('Введите радиус окружности: '); Read(r);
Writeln('Длина окружности равна ',2*Pi*r)
end;
2: begin
Write('Введите радиус круга: '); Read(r);
Writeln('Площадь круга равна ',Pi*r*r)
end;
3: begin
Write('Введите радиус и высоту цилиндра: '); Read(r,h);
Writeln('Объем цилиндра равен ',Pi*r*r*h)
end;
4: begin
Write('Введите длину, ширину и высоту параллелепипеда: '); Read(a,b,h);
Writeln('Объем параллелепипеда равен ',a*b*h)
end
end
end.
Пример работы
Введите код вычисляемой величины:
1 - длина окружности
2 - площадь круга
3 - объем цилиндра
4 - объем параллелепипеда
-> 3
Введите радиус и высоту цилиндра: 5 18.3
Объем цилиндра равен 1437.2786418585
Var
s,sr:string;
i,j,n:integer;
pr:array of char=('.',',',';',':','!','?');
begin
readln(s);
s:=s.Trim;
var ars:=s.ToWords();
s:='';
for i:=0 to ars.Length-1 do
s+=ars[i]+' ';
s:=s.Trim;
i:=0;
while i<>s.Length do
begin
inc(i);
if (s[i] in pr) and (s[i-1]=' ') then delete(s,i-1,1);
end;
i:=0;
while i<>s.Length-1 do
begin
inc(i);
if (s[i] in pr) and (s[i+1]<>' ') then insert(' ',s,i+1);
end;
s:=s.Trim;
writeln(s);
end.
Пример ввода:
Очень, очень ,очень , очень ,очень,очень много слов.
Пример вывода:
Очень, очень, очень, очень, очень, очень много слов.