Напишите программу, которая вычисляет произведение - вопрос №131540065 от clon4 10.12.2020 21:50

Question

Информатика: Напишите программу, которая вычисляет произведение всех чисел кратных 5 в диапазоне от 1 до n (через цикл while) ​

clon4 · Answer

var p, n, i: integer; begin p := 1; readln(n); while i n do begin i += 1; if (i mod 5 = 0) then p *= i; end; write(p); end.Пример работо...

Напишите программу, которая вычисляет произведение всех чисел кратных 5 в диапазоне от 1 до n (через цикл while) ​