Написать функцию в паскале, определяющую делится ли (кратно ли)введенное число 15 (если делится, то значение функции TRUE, иначе FALSE). С ее помощью вывести на экран все числа кратные 15 из интервала от 200 до 300.
Заранее спасибо!
Заранее спасибо!
More Questions From This User See All
Answers & Comments
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
Verified answer
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.