Паскаль. Дана строка. В конце каждого слова добавить "!" Начало, чтобы было таким:
var a:string; i,k:integer;
begin
writeln('введи строку:');
readln(a);
for i:= 1 to length(a) do
if a[i]
var a:string; i,k:integer;
begin
writeln('введи строку:');
readln(a);
for i:= 1 to length(a) do
if a[i]
More Questions From This User See All