С. я написала решение, но где-то ошибка видимо. подскажите где именно и ошиблась. смоделировать работу автомата по продаже билетов. пусть населенные пункты обозначены номерами 1, 2, 3, 4, 5, 6, 7, 8. стоимость одного билета к конкретному пункту определена так: 22,k=1 35,k=2,3 50,k=4 72,k=5,6 97 во всех остальных случаях. сколько будут стоить m билетов к некоторому населенному пункту? для решения используйте алгоритмическую конструкцию "выбор" (case). program z5; var r, m, n, s: integer; begin writeln('r=', r); readln(r); writeln('m=', m); readln(m); case r of 1: n: =22; 2,3: n: =35; 4: n: =50; 5,6: n: =72; else n: =97; end; s: =m*n; writeln('s=', s); end.
281
318
Ответы на вопрос:
program z5; uses crt; varr, m, n, s: integer; beginwriteln('введите населённый пункт'); readln(r); writeln('введите кол-во билетов'); readln(m); case r of1: n: =22; 2,3: n: =35; 4: n: =50; 5,6: n: =72; else n: =97; end; s: =m*n; writeln('s=', s); end.
вы выводите r перед тем как ввести его, то есть по умолчанию присваевается 0, а так всё правильно.
writeln('r=', r);
readln(r);
Популярно: Информатика
-
sofafomenkosofa22.05.2021 10:02
-
боня5119.02.2020 04:29
-
Trifonova25252514.02.2021 12:38
-
отличник71414.11.2020 22:34
-
ivanes18.08.2020 20:33
-
aidanuraim06.09.2021 20:18
-
anastasiya25821.01.2021 18:03
-
miroororoe0102.10.2022 06:53
-
Позитив4ик12313.04.2021 03:36
-
mischkulentsov04.11.2020 23:34