Question

Написать программы для паскаля (начальный уровень) 1. По количеству ног, лап, конечностей определить название животного:рыба, птица, лось, жук-олень, паук, сороконожка. 2. По номеру ряда выдать стоимость билета в кинотеатре (1-10 "150р" 11-15 "100р" 16-20 "75р")

Answer 1

Я могу помочь вам с написанием программ для Паскаля. Вот примеры кода для ваших задач:

1. По количеству ног, лап, конечностей определить название животного: рыба, птица, лось, жук-олень, паук, сороконожка.

program AnimalName;
var
  legs: integer;
  name: string;
begin
  writeln('Введите количество ног животного:');
  readln(legs);
  case legs of
    0: name := 'рыба';
    2: name := 'птица';
    4: name := 'лось';
    6: name := 'жук-олень';
    8: name := 'паук';
    else name := 'сороконожка';
  end;
  writeln('Название животного: ', name);
end.

2. По номеру ряда выдать стоимость билета в кинотеатре (1-10 "150р" 11-15 "100р" 16-20 "75р")

program TicketPrice;
var
  row: integer;
  price: integer;
begin
  writeln('Введите номер ряда в кинотеатре:');
  readln(row);
  if (row >= 1) and (row <= 10) then
    price := 150
  else if (row >= 11) and (row <= 15) then
    price := 100
  else if (row >= 16) and (row <= 20) then
    price := 75
  else
    price := 0;
  if price > 0 then
    writeln('Стоимость билета: ', price, 'р')
  else
    writeln('Неверный номер ряда');
end.

Надеюсь, это вам поможет. Удачи!