Напишите программу, которая вычисляет произведение - вопрос №131540065 от elizavetaivlic 30.03.2023 11:35

Question

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

elizavetaivlic · 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) ​