Question

Написать программу,которая на вход получает два целых числа и определяет делится ли одно на другое нацело. На выходе программа печатает False, если числа не делятся нацело и результат деления иначе. Все в паскале

Answer 1

Var a,b:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
if a mod b = 0
 then writeln(a,' / ',b,' = ',a div b)
 else writeln(a mod b = 0);
end.

Пример 1:
a=20
b=5
20 / 5 = 4

Пример 2:
a=20
b=6
False

Answer 2

Вот пример программы на языке Pascal, которая выполняет описанные задачи:

arduinoCopy code
program DivideIntegers;

var
  num1, num2, result: integer;

begin
  write('Введите первое число: ');
  readln(num1);
  
  write('Введите второе число: ');
  readln(num2);
  
  if num2 = 0 then
    writeln('Ошибка: нельзя делить на 0')
  else if num1 mod num2 = 0 then
    begin
      result := num1 div num2;
      writeln(num1, ' делится на ', num2, ' нацело. Результат: ', result);
    end
  else
    writeln(num1, ' не делится на ', num2, ' нацело.');
    
  readln; // чтобы окно не закрывалось сразу после выполнения
end.

Объяснение программы:

1. Объявляем переменные num1, num2 и result, которые будут хранить вводимые пользователем числа и результат деления соответственно.
2. Считываем два числа с помощью процедуры readln.
3. Проверяем, не является ли второе число нулем. Если это так, выводим сообщение об ошибке и завершаем программу.
4. Проверяем, делится ли первое число на второе нацело с помощью оператора mod (возвращает остаток от деления). Если да, вычисляем результат деления и выводим сообщение о том, что число делится нацело и какой результат получен.
5. Если первое число не делится на второе нацело, выводим соответствующее сообщение.
6. Программа останавливается и ждет, пока пользователь не нажмет клавишу Enter.