Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите изменить код pascal
Нужно по другому записать функцию if или вообще переписать программу , но чтобы смысл был тот же
Заранее спасибо !
Сам код pascal :
const
t=5.0;
cl=0.9;
var
s:string;
a,i:byte;
begin
writeln(Введите ваше сообщение);
Readln(s);
For i:=1 to length(s) do
if (s[i]= ) and (s[i+1]<> ) then inc(a);
a:=a+1;
writeln(Количество слов - , a);
begin
writeln(Стоимость телеграммы ,t+cl*a, руб);
end;
end.

Ответ оставил Гость

Constt=5.0;
cl=0.9;
var 
s:string;
a,i:byte;
f:boolean;
begin
writeln(Введите ваше сообщение);
Readln(s);
a:=0;
i:=1;
while i<=length(s) do
begin
 while (i<=length(s)) and (s[i]= ) do inc(i); 
 f:=(i<=length(s)) and (s[i]<> ); 
 while f do
  begin
   inc(a);
   f:=false;
  end;
 while (i<=length(s)) and (s[i]<> ) do inc(i);
end;
writeln(Количество слов - , a);
writeln(Стоимость телеграммы ,t+cl*a, руб);
end.