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

Ответы 2

  • Можно IF заменить на boolean
  • Это усложнит код, но функция IF задействована не будет
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years