Question

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

Answer 1

В старом стиле

program RainOrSnowInMonth;

var

   day, days: integer;

   rainfall, temperature, snowfallAmount, rainfallAmount: real;

begin

   writeln('Введіть кількість днів у місяці: ');

   readln(days);

   

   snowfallAmount := 0;

   rainfallAmount := 0;

   for day := 1 to days do

   begin

       writeln('День ', day);

       writeln('Введіть кількість опадів (у мм): ');

       readln(rainfall);

       

       writeln('Введіть температуру повітря (у градусах Цельсія): ');

       readln(temperature);

       

       if temperature <= 0 then

           snowfallAmount := snowfallAmount + rainfall

       else

           rainfallAmount := rainfallAmount + rainfall;

   end;

   

   writeln('Кількість опадів у вигляді снігу: ', snowfallAmount, ' мм');

   writeln('Кількість опадів у вигляді дощу: ', rainfallAmount, ' мм');

   

   readln;

end.

В новом стиле

//PascalABC.NET версия 3.9 (2023-07-11)

program RainOrSnowInMonth;

begin

   var days := ReadInteger('Введіть кількість днів у місяці: ');

   var snowfallAmount := 0.0;

   var rainfallAmount := 0.0;

   

   for var day := 1 to days do

   begin

       var rainfall := ReadReal($'День {day}{NewLine}Введіть кількість опадів (у мм): ');

       var temperature := ReadReal('Введіть температуру повітря (у градусах Цельсія): ');

       if temperature <= 0 then

           snowfallAmount += rainfall

       else

           rainfallAmount += rainfall;

   end;

   

   writeln($'Кількість опадів у вигляді снігу: {snowfallAmount} мм');

   writeln($'Кількість опадів у вигляді дощу: {rainfallAmount} мм');

   

   readln;

end.