Определить количество чисел,кратных 5,среди переменных K,L,M - Turbo Pascal (106168)
Формулировка задачи:
Решение задачи: «Определить количество чисел,кратных 5,среди переменных K,L,M»
var
K, L, M, num : integer;
begin
num := 0;
write('Введите числа K, L, M:');
readln(K, L, M);
if K mod 5 = 0 then begin inc(num); write('K':2) end;
if L mod 5 = 0 then begin inc(num); write('L':2) end;
if M mod 5 = 0 then begin inc(num); write('M':2) end;
writeln;
writeln('итого чисел кратных 5: ', num);
readln
end.
Объяснение кода листинга программы
В данном коде на языке Turbo Pascal выполняется следующая задача: определить количество чисел, кратных 5, среди переменных K, L, M. Переменные K, L, M представляют собой целые числа, введенные пользователем с клавиатуры. Сначала значение переменной num устанавливается равным 0. Затем программа запрашивает у пользователя ввод трех чисел, используя функцию readln. Далее происходит проверка каждого числа на кратность 5 с помощью оператора mod. Если число кратно 5, то значение переменной num увеличивается на 1 с помощью функции inc. После проверки всех трех чисел выводится общее количество чисел, кратных 5, с помощью функции write. В конце программы с помощью функции readln происходит ожидание ввода пользователя и завершение работы программы.