С. я написала решение, но где-то ошибка видимо. подскажите где именно и ошиблась. смоделировать работу автомата по продаже билетов. пусть населенные пункты обозначены номерами 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.

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);

Тесты по информатике

1. Как называется группа файлов, которая хранится отдельной группой и имеет собственное имя ?

- Байт

 Каталог

- Дискета

2. Как называются данные или программа на магнитном диске?

- Папка

+ Файл

- Дискета

3. Какие символы разрешается использовать в имени файла или имени директории в Windows?

- Цифры и только латинские буквы

+ Латинские, русские букву и цифры

- Русские и латинские буквы

4. Выберите имя файла anketa с расширением txt.

- Anketa. txt.

+ Anketa. txt

- Anketa/txt.

5. Укажите неправильное имя каталога.

- CD2MAN;

- CD-MAN;

+ CD\MAN;

Объяснение:

Оттуда: сложение двух чисел тривиально — достаточно поставить 1 между ними и стереть крайний правый символ у q. программа вычитания состоит из последовательного затирания крайних левых меток у q и правых у p: 1. 0 - стираем левый символ у q 2. → 3. ? 5, 4 4. stop - стоп если затерли q=0 5. ← 6. ? 7, 5 - цикл поиска p 7. 0 - стираем правый символ у p 8. → 9. ? 1, 8 - ищем q отметим, что номер команды перехода не указывается, если переход происходит на следующую по порядку строку (для наглядности текста) . в 6-ой строке возможно зацикливание, если q > p (вы можете добавить проверку сами) ****только вам нужно сдвинуться в начало строки и учесть пустую клетку-т. е. еще один проскок каретки