Информатика, вопрос опубликован 26.06.2020 22:03 lina465

ребят, в паскале не получается ввести десятичную дробь, хотя Real, не пойму-почему?
напишите программу, не из инета -там неправильно

Задание 65. В аэробусе, вмещающем 160 пассажиров, три четверти мест находятся в салоне экономического класса и одна четверть мест - в салоне бизнес-класса. Стоимость билета в салоне бизнес-класса составляет x рублей, что в два раза выше стоимости билета в салоне экономического класса. 
Необходимо вычислить сумму денег, полученную авиакомпанией от продажи билетов на один рейс, если известно, что остались нераспроданными a билетов бизнес-класса и b билетов эконом- класса​

Ответы
Ответ добавил: Гость

var

n: integer;

begin

readln(n);

if (n mod 10)=(n div 100) then

writeln('палиндром')

else

writeln('не палиндром');

end.

Ответ добавил: Гость

//pascalabc.net

1)

var

  num, sum: integer;

begin

  sum : = 0;

  repeat

    read(num);

    if (num mod 4 = 0) and (num div 1000 = 0) and (num div 100 < > 0) then

      sum : = sum + num;

  until (num = 0);

  write(sum);

end.

2)

var

  num, max, n, i: integer;

begin

  max : = 0;

  read(n);

  for i : = 1 to n do

  begin

    read(num);

    if (num mod 10 = 3) and (num > max) then

      max : = num;

  end;

  write(max);

end.

Ответ добавил: Гость

все данные заполнены в следующих картинках.

Ответ добавил: Гость

a: = b div a (25 / 7 = 3)

b: = b mod a (25 % 3 = 4)

ответ: 4

Больше вопросов по информатике