Question

Изменить код 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.

Answer 1

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.