Question

Написать функцию в паскале, определяющую делится ли (кратно ли)введенное число 15 (если делится, то значение функции TRUE, иначе FALSE). С ее помощью вывести на экран все числа кратные 15 из интервала от 200 до 300.
Заранее спасибо!

Answer 1

var x: integer;

function D15(x: integer) : boolean;

begin

if (x mod 15) = 0 then D15 := true else D15 := false;

end;

begin

for x := 200 to 300 do if D15(x) then writeln(x);

end.

Answer 2

function k15(a:integer):boolean;

begin

k15:=a mod 15 = 0;

end;

var i: integer;

begin

for i:=200 to 300 do

if k15(i) then write(i,' ');

end.

Результат:

210  225  240  255  270  285  300