Question

Напишите код на паскале Є інформація про кількість опадів, що випали за кожен місяці, і про температуру повітря в ці дні. Визначити, яка кількість опадів випало у вигляді снігу і яка - у вигляді дощу. (Вважати, що йде дощ, якщо температура повітря вище 0°).

Answer 1

Программа на языке Pascal:

program CalculatePrecipitation;

var
  rainfall, temperature: array[1..12] of real;
  snowfall, rainfallCount, snowfallCount: real;
  i: integer;

begin
  rainfallCount := 0;
  snowfallCount := 0;

// Вводим информацию о количестве осадков и температуре
  for i := 1 to 12 do
  begin
    write('Введите количество осадков в месяце ', i, ': ');
    readln(rainfall[i]);
    write('Введите температуру воздуха в месяце ', i, ': ');
    readln(temperature[i]);
  end;

// Вычисляем количество осадков в виде снега и дождя
  for i := 1 to 12 do
  begin
    if temperature[i] <= 0 then
      snowfallCount := snowfallCount + rainfall[i]
    else
      rainfallCount := rainfallCount + rainfall[i];
  end;

writeln('Количество осадков в виде снега: ', snowfallCount:0:2);
  writeln('Количество осадков в виде дождя: ', rainfallCount:0:2);

end.

Эта программа позволяет ввести информацию о количестве осадков и температуре в каждом месяце, а затем определяет, сколько осадков выпало в виде снега и сколько в виде дождя. Результат выводится на экран.