Напишите программу вычисляющую стоимость междугороднего телефонного разговора....

Question

Напишите программу вычисляющую стоимость междугороднего телефонного разговора. Пользователь вводит код города и положительное разговора (название соответствующего города и стоимость минуты должны выводится в программе по коду​

---

Answer 1

Var k, m:Integer;

Begin

Write ('Введите код города') ;read(k) ;

Write ('Введите продолжительность разговора') ;read(m) ;

If k=423 then

Write('Владивосток, стоимость звонка: ', 3.5*m);

If k=495 then

Write ('Москва, стоимость звонка ', 1.2*m);

If k=815 then

Write ('Мурманск, стоимость звонка ', 1.8*m);

If k=846 then

Write ('Самара, стоимость звонка ', 2.4*m);

End.