Question

Написать две программы в Pacsal Каждую строчку прокомментировать для чего она в программе Pascal - ЭТО ВАЖНО1. На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём. Найти среднее арифметическое всех двузначных чисел, которые делятся на 7.2. На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём. Найти максимальное из введённых чётных чисел.

Answer 1

Решение задач прекрепил ниже.

Answer 2

Давайте начнем с первой программы. Эта программа принимает на вход неизвестное количество целых чисел, ввод заканчивается нулем. Программа должна найти среднее арифметическое всех двузначных чисел, которые делятся на 7.

program AverageOfDivisibleBySeven;
var
 n, sum, count, temp: integer;
begin
 sum := 0;
 count := 0;
 read(n);
 while n <> 0 do
 begin
   temp := abs(n);
   if (temp >= 10) and (temp <= 99) and (temp mod 7 = 0) then
   begin
     sum := sum + temp;
     count := count + 1;
   end;
   read(n);
 end;
 if count > 0 then
   writeln(sum / count:0:2)
 else
   writeln('No divisible numbers by 7 found');
end.

* `program AverageOfDivisibleBySeven;` - объявление программы. * `var n, sum, count, temp: integer;` - объявление переменных. n - вводимое число, sum - сумма двузначных чисел, которые делятся на 7, count - количество таких чисел, temp - абсолютное значение числа. * `read(n);` - чтение введенного числа. * `while n <> 0 do` - цикл, который продолжается, пока вводимое число не равно нулю. * `temp := abs(n);` - присваивание абсолютного значения числа переменной temp. * `if (temp >= 10) and (temp <= 99) and (temp mod 7 = 0) then` - проверка, является ли число двузначным и делится ли оно на 7. * `sum := sum + temp;` - если условие выполняется, то число прибавляется к сумме. * `count := count + 1;` - и увеличивается счетчик. * `read(n);` - снова читаем вводимое число. * `if count > 0 then writeln(sum / count:0:2) else writeln('No divisible numbers by 7 found');` - если было найдено хотя бы одно число, то выводим среднее арифметическое, иначе выводим сообщение, что чисел, делящихся на 7, не найдено.

Теперь перейдем к второй программе. Эта программа также принимает на вход неизвестное количество целых чисел, ввод заканчивается нулем. Программа должна найти максимальное из введенных четных чисел.

program MaxEvenNumber;
var
 n, max: integer;
begin
 max := -32768;
 read(n);
 while n <> 0 do
 begin
   if (n mod 2 = 0) and (n > max) then
     max := n;
   read(n);
 end;
 if max = -32768 then
   writeln('No even numbers found')
 else
   writeln('Max even number is ', max);
end.

* `program MaxEvenNumber;` - объявление программы. * `var n, max: integer;` - объявление переменных. n - вводимое число, max - максимальное четное число. * `max := -32768;` - инициализация максимального числа минимально возможным значением для типа integer. * `read(n);` - чтение введенного числа. * `while n <> 0 do` - цикл, который продолжается, пока вводимое число не равно нулю. * `if (n mod 2 = 0) and (n > max) then max := n;` - если число че