Задача составить программу для определения стоимости разговора по межгороду по заданным данным (назавания соответствуещего города должны выводится по коду) : код города Москва-495 код города С. Петербург_812 код города Краснодар 861 стоимость разговора Москва=1.2 стоимость разговора С Петербург=2.12 стоимость разговора Краснодар 5.12 назавания соответстуещего города должны выводится по коду:

Question

Информатика

Корнейка

24 октября, 15:37

Задача составить программу для определения стоимости разговора по межгороду по заданным данным (назавания соответствуещего города должны выводится по коду) : код города Москва-495 код города С. Петербург_812 код города Краснодар 861 стоимость разговора Москва=1.2 стоимость разговора С Петербург=2.12 стоимость разговора Краснодар 5.12 назавания соответстуещего города должны выводится по коду:

+5

Ответы (1)

Знаешь ответ?

Денисья · Answer 1

Program gg;

var

a, b, c, d:integer;

begin

b:=495;

c:=812;

d:=861;

writeln ('Введите код страны');

read (a);

if a=b then

writeln ('Москва. Стоимость разговора 1.2');

if a=c then

writeln ('Петербург. Стоимость разговора 2.12');

if a=d then

writeln ('Краснодар. Стоимость разговора 5.12');

end.

Если хочешь b c d можешь заменить числами, мне просто удобнее через массивы.