Помогите с задачей. я написала решение, но где-то ошибка видимо. подскажите где именно и ошиблась. Смоделировать работу автомата по продаже билетов. Пусть населенные пункты обозначены номерами 1, 2, 3, 4, 5, 6, 7, 8. Стоимость ...
Помогите с задачей. я написала решение, но где-то ошибка видимо. подскажите где именно и ошиблась. Смоделировать работу автомата по продаже билетов. Пусть населенные пункты обозначены номерами 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;
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);
Не нашли ответ?
Похожие вопросы