Question

Просто объясните программу и КАЖДУЮ строчку, чтобы вы понимали как.
Объясните значение каждого слова на каждой строчке.
ВОт программа:
program AverageMultiples;
var
num, sum, count: integer;
average: real;
begin
sum := 0;
count := 0;

repeat
readln(num);

if (num = 0) then
break;

if ((num mod 4 = 0) and (num mod 5 = 0)) then
begin
sum := sum + num;
count := count + 1;
end;
until false;

if (count > 0) then
begin
average := sum / count;
writeln('Average: ', average:0:1);
end
else
writeln('NO');
end.

Answer 1

Ответ:

program AverageMultiples;//Объявляем имя программы

var

num, sum, count: integer;//Создаем переменные(целочисленные), номер, сумма, количество

average: real;//И вещественную переменную(с запятой

begin//Начинаем программу(выполнение всех операций)

sum := 0;//Определяем переменную sum

count := 0;//Определяем переменную count

repeat//repeat и until, это тоже что и do.. while.. Операции повторяются до тех пор пока условие нарушится

readln(num);//Запрашиваем ввод, и сохраняем в переменной num

if (num = 0) then//Если введенное число 0, останавливаем операцию

break;

if ((num mod 4 = 0) and (num mod 5 = 0)) then//Похоже на % в питоне, определяем кратно ли число 4 и 5

begin//Начало

sum := sum + num;//Прибавляем к к переменной sum, введенное нами ранее число, тем самым получая сумму всех чисел

count := count + 1;#Прибавляем 1 к count, эта переменная кол-во введенных чисел

end;

until false;#Это блок кода будет выполнятся до тех пор пока значение условия не станет false(ложно)

if (count > 0) then//Если мы ввели какието числа(кол-во введенных чисел больше 0, тогда:

begin//Начало

average := sum / count;//Считаем среднее арифмитическое, разделив сумму чисел на количество чисел

writeln('Average: ', average:0:1);//Выводим результат

end//Конец

else//Иначе

writeln('NO');//Выводим NO в консоль

end.//Конец программы