БЛЛЛИНН помогите пожалуйста!!!!!Задача. вывести на экран произведение чисел в диапазоне от 5 до 20 с шагом 3. с использованием while.
БЛЛЛИНН помогите пожалуйста!!!!!Задача. вывести на экран произведение чисел в диапазоне от 5 до 20 с шагом 3. с использованием while.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы