Вывести на экран произведение чисел в диапазоне от 5 до 20 с шагом 3. с использованием while.

Question

Информатика: Вывести на экран произведение чисел в диапазоне от 5 до 20 с шагом 3. с использованием while.

den222276 · Answer

program pr; var s,a:integer; begin s:=1; a:=5; while a =20 do begin a:=a+3; s:=s*a; end; writeln(s); readln; end.  ...