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.
Прикладываю исходник и скрин в приложении к ответу.
<u><em>Несколько замечаний:
</em></u><em />1. <em />Большое количество комментариев внесено в код исключительно в учебных целях. В реальную программу переносить не рекомендуется - признак нехорошего тона.
2. У вас допущены синтаксические ошибки в двух последних циклах, а точнее - в операторах If, в которых стоит три условия (объединённых and), но нет ключевого слова "then" и последующих инструкций. Исправил.
3. Так же, автор вашей программы построил на мой взгляд нелогичную структуру алгоритма. Переменные min, min2 и min3, как я догадался, должны хранить три минимальных значения массива.
А вот что происходит в вашей конструкции: первый цикл безошибочно находит наименьший элемент и записывает его в min, а последующие два цикла записывают в min2 и min3 первые попавшиеся(начиная с первого) элементы, если они больше min. Таким образом, нет никакой закономерности в том, что попадёт в эти переменные и сложно представить, для какой задачи потребовались бы такие случайности.
Одним из вариантов решения предлагаю изначально записывать в эти три переменные не значение первого элемента массива, а какое-то большое число, которое в массиве нам не встретится (например 100). Тогда цикл будет искать значения меньше 100 и перезаписывать им соответствующую переменную, пока не найдёт самое маленькое значение. В таком случае не очень стабильная переменная j нам так же не нужна, я её вычеркнул.
Вам отсылаю уже с учётом поправок, однако если вам требовалась <u><em>именно первоначальная версия</em></u> несмотря на её минусы, просто поправьте синтаксис в последних циклах (41 и 34 строчка на скрине) и пользуйтесь ей.
a = 3
b = 11
a = 11 - 3*2 = 11 - 6 = 5
b = 50 / 5 * 4 = 10 * 4 = 40
Ответ: 40.
Подобранные пары похожих понятий:
- Веселье - грусть (эмоции)
- Весна - осень (времена года)
- Монитор - клавиатура (компьютерные устройства)
- Стол - диван (предметы мебели)
- Береза - осина (деревья)
- Автомобиль - самолет (средства передвижения)
- Арбуз - гуляш (съедобное)