Напишите программу вычисляющую стоимость междугороднего телефонного разговора. пользователь вводит код города и положительное разговора (название соответствующего города и стоимость минуты должны выводится в программе по коду
Информационная деятельность - это совокупность действий, направленных на удовлетворение информационных потребностей граждан, юридических лиц и государства. В целях удовлетворения этих потребностей органы государственной власти и органы местного и регионального самоуправления создают информационные службы, системы, сети, базы и банки данных. Порядок их создания, структура, права и обязанности определяются Кабинетом Министров Украины или другими органами государственной власти, а также органами местного и регионального самоуправления.
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.