Написать функцию, которая выясняет, является ли число кратным 3 - Pascal
Формулировка задачи:
Написать подпрограмму-функцию, которая выясняет, является ли заданное пользователем целое число кратным 3 (результат функции - значение логического типа). Пользователь задает 3 значения.
Здравствуйте помогите пожалуйста с написанием программы.
Я смог написать только для одного числа а надо для трёх(пример снизу).
var chislo,kratnue_4isla:integer; i:byte; function kratnoe (chislo:integer):integer; begin if (chislo mod 3) = 0 then writeln('kratnoe 4islo = ',chislo) end; begin writeln('Vvedite tri 4isla'); readln(chislo); kratnue_4isla:= kratnoe(chislo); end.
Решение задачи: «Написать функцию, которая выясняет, является ли число кратным 3»
textual
Листинг программы
function kratnoe (chislo:integer):boolean; begin kratnoe:=chislo mod 3=0 end; var i,chislo:integer; begin writeln('Vvedite tri 4isla'); for i:=1 to 3 do begin readln(chislo); writeln(kratnoe(chislo)); end; end.
Объяснение кода листинга программы
- Объявляется функция с именем
kratnoe
и параметромchislo
типа integer, которая возвращает значение типа boolean. - В теле функции
kratnoe
проверяется, является ли значениеchislo
кратным 3 с помощью операции остатка от деления (mod 3=0) и это значение возвращается из функции. - Объявляются переменные
i
иchislo
типа integer. - Начинается блок кода основной программы.
- Выводится на экран текст
Vvedite tri 4isla
. - Запускается цикл
for
от 1 до 3. - Внутри цикла считывается значение переменной
chislo
с помощью функцииreadln
. - Выводится на экран результат вызова функции
kratnoe
с переданным значениемchislo
с помощью функцииwriteln
. - Конец цикла.
- Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д