Составьте программу вычисления Pascal. Найти произведение двузначных чисел кратных 15. Нужна полная програаму вычисления. Помог

Question

4 года назад

6

<u>Составьте программу вычисления Pascal.</u>

<u>Найти произведение двузначных чисел кратных 15. </u>

Нужна полная програаму вычисления. Помогите пожалуйста.

1 ответ:

саша20177123 · Answer 1 · 2020-07-25T10:22:20+03:00

саша201771234 года назад

0 0

var prod,i:integer;

begin

prod:=1;

for i:=10 to 99 do

if(i mod 15=0) then prod:=prod*i;

writeln(prod)

end.