Задать вопрос
27 июля, 02:08

помогите с задачей. я написала решение, но где-то ошибка видимо. подскажите где именно и ошиблась.

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

+5
Ответы (1)
  1. 27 июля, 03:58
    0
    program z5;

    uses crt;

    var

    r, m, n, s:integer;

    begin

    writeln ('введите населённый пункт') ;

    readln (r) ;

    writeln ('введите кол-во билетов') ;

    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.

    вы выводите r перед тем как ввести его, то есть по умолчанию присваевается 0, а так всё правильно.

    writeln ('r=', r) ;

    readln (r) ;
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «помогите с задачей. я написала решение, но где-то ошибка видимо. подскажите где именно и ошиблась. Смоделировать работу автомата по продаже ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике