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

Pascal нужна ваша помощь.
Посчитать стоимость 1 телеграммы
Каждое слово 90 копеек + за саму телеграмму 5р
Заранее спасибо.

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

Const
  cw=0.9;
  ct=5.0;
var
  n:integer;
begin
  Write(Введите количество слов в телеграмме: ); Readln(n);
  Writeln(Стоимость телеграммы составит ,ct+n*cw:0:2, руб.)
end.

Тестовое решение:
Введите количество слов в телеграмме: 13
Стоимость телеграммы составит 16.70 руб.