ПАСКАЛЬ Внесите изменение в программу так чтобы выводили числа кратные 3,5;кратные...

Question

ПАСКАЛЬ Внесите изменение в программу так чтобы выводили числа кратные 3,5;кратные введенному число x​

---

Answer 1

a:=2*n;

if a mod 3 =0 then write (a, ' '); // кратно3

//Если кратно 5

if a mod 5=0 then write (a, ' '); // кратно 5

//если кратно x

if a mod x =0 then write (a, ' '); // кратно x