Используя вс алгоритмы, запрограммируйте в среде графического исполнителя Чертёжник рисование следующих фигур

155

180

Посмотреть ответы 1

Ответы на вопрос:

Forsenboy

Информатика

4,8(74 оценок)

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