Program2.pas(17) : Нельзя преобразовать тип string к char
program Серебряный_Ёж;
var
s: string[50];
i, k: integer;
begin
write('Введите строку: '
k := 0;
for i := 1 to Length(s) do
if s = '!' then
begin
k := k + 1;
s := '.';
end
else if s = '.' then
begin
k := k + 1;
s := '...';
end;
if k <> 0 then writeln('Полученная строка: ', s)
else writeln('Восклицательных знаков нету!'
readln;
end.
program Серебряный_Ёж;
var
s: string[50];
i, k: integer;
begin
write('Введите строку: '
k := 0;
for i := 1 to Length(s) do
if s = '!' then
begin
k := k + 1;
s := '.';
end
else if s = '.' then
begin
k := k + 1;
s := '...';
end;
if k <> 0 then writeln('Полученная строка: ', s)
else writeln('Восклицательных знаков нету!'
readln;
end.