function

[Nick245]

Объясните пожалуйста как вообще работает второй IF.

Код: Выделить всё

program ex7;

var
a,b:integer;

function multiple(num1,num2:integer):boolean;


begin
   if (num1 mod num2)=0 then
   multiple:=true
   else
   multiple:=false;
end;
   
begin
   writeln('put 2 numbers');
   readln(a,b);
   
if multiple(a,b) then   
         
      writeln(a,'  is multiple ',b)
         
else
      writeln(a,'  is not multiple    ',b);
      
      
end.

[WAYFARER]

Nick245, а что тут может быть не понятно?
Если число a кратно числу b, то выводим (a,' is multiple ',b)
Можно немного дописать условие, что бы оно было более понятным:

Код: Выделить всё

if multiple(a,b) = True then