Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 7 лаб. Подпрограммы / function / Program2
.pas uses crt;
var a,b: integer;
i: boolean;
// процедура на проверку кратности одного числа на другое
function kratnost: boolean;
begin
if a mod b=0
then i:=true
else i:=false;
kratnost:=i;
end;
begin
write('Введите число A: '); readln(a);
write('Введите число B: '); readln(b);
if kratnost
then write('число ',a,' кратно числу ',b)
else write('число ',a,' не кратно числу ',b);
end.
var a,b: integer;
i: boolean;
// процедура на проверку кратности одного числа на другое
function kratnost: boolean;
begin
if a mod b=0
then i:=true
else i:=false;
kratnost:=i;
end;
begin
write('Введите число A: '); readln(a);
write('Введите число B: '); readln(b);
if kratnost
then write('число ',a,' кратно числу ',b)
else write('число ',a,' не кратно числу ',b);
end.
Соседние файлы в папке function