Написать функцию, которая выясняет, является ли число кратным 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.

Объяснение кода листинга программы

  1. Объявляется функция с именем kratnoe и параметром chislo типа integer, которая возвращает значение типа boolean.
  2. В теле функции kratnoe проверяется, является ли значение chislo кратным 3 с помощью операции остатка от деления (mod 3=0) и это значение возвращается из функции.
  3. Объявляются переменные i и chislo типа integer.
  4. Начинается блок кода основной программы.
  5. Выводится на экран текст Vvedite tri 4isla.
  6. Запускается цикл for от 1 до 3.
  7. Внутри цикла считывается значение переменной chislo с помощью функции readln.
  8. Выводится на экран результат вызова функции kratnoe с переданным значением chislo с помощью функции writeln.
  9. Конец цикла.
  10. Конец программы.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4 из 5
Похожие ответы