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

Question

Напишите программу, вычисляющию стоимость 10-минутного междугороднего разговора в зависимости от кода города (Астана (7172)-5,4 тенге, Караганды(7212)-4.5 тенге, Актау(7292)- 5 тенге, Актобе(7132)-5,5 тенге

Comments

Это стоимость за одну минуту?

Answer 1

var n:integer;

begin

 writeln('Астана (7172) - 5,4 тенге');

 writeln('Караганда (7212) - 4.5 тенге');

 writeln('Актау(7292) - 5 тенге');

 writeln('Актобе(7132) - 5,5 тенге');

 write('Введите код города: '); readln(n);

 case n of

 7172: writeln('Стоимость 10-минутного разговора ',5.4*10:0:0,' тенге');

 7212: writeln('Стоимость 10-минутного разговора ',4.5*10:0:0 ,' тенге');

 7292: writeln('Стоимость 10-минутного разговора ',5*10,' тенге');

 7132: writeln('Стоимость 10-минутного разговора ',5.5*10:0:0,' тенге');

 end;

end.