Question

!СРОЧНО ИНФОРМАТИКА! Решить подробно для Паскаль: 1. Ввести два натуральных числа: числитель и знаменатель. Определить правильная или неправильная дробь? 2. Даны два числа. Определить делится ли первое число на второе. 3.Ввести два числа, вывести меньшее из них

Answer 1

var

 n,m:integer;

begin

 writeln('Задача 1');

 readln(n,m);

 if n>=m then  

   writeln('Неправильная')

     else writeln('Правильная');

 writeln;

 writeln('Задача 2');

 n:=random(20); m:=random(20);

 writeln(n,' ',m);

 if n mod m = 0 then  

   writeln('Делится нацело')

     else writeln('Не делится нацело');

 writeln;

 writeln('Задача 3');

 readln(n,m);

 if n<=m then

   if n=m then writeln('Равные')

     else  writeln(n)

     else writeln(m);

end.

Если моё решение помогло вам, пометьте его лучшим. Спасибо!

Answer 2

Конечно, давайте решим поставленные задачи на языке программирования Pascal.

program FractionCheck;

var
  numerator, denominator, num1, num2: integer;

begin
  // Задача 1: Определить, является ли дробь правильной или неправильной

writeln('Задача 1:');
  write('Введите числитель: ');
  readln(numerator);
  write('Введите знаменатель: ');
  readln(denominator);

if numerator < denominator then
    writeln('Дробь правильная')
  else if numerator mod denominator = 0 then
    writeln('Дробь неправильная (имеет целую часть)')
  else
    writeln('Дробь неправильная (не имеет целую часть)');

writeln;

// Задача 2: Определить, делится ли первое число на второе

writeln('Задача 2:');
  write('Введите первое число: ');
  readln(num1);
  write('Введите второе число: ');
  readln(num2);

if num1 mod num2 = 0 then
    writeln('Первое число делится на второе')
  else
    writeln('Первое число не делится на второе');

writeln;

// Задача 3: Вывести меньшее из двух чисел

writeln('Задача 3:');
  write('Введите первое число: ');
  readln(num1);
  write('Введите второе число: ');
  readln(num2);

if num1 < num2 then
    writeln('Меньшее число: ', num1)
  else if num2 < num1 then
    writeln('Меньшее число: ', num2)
  else
    writeln('Числа равны');

end.

Эта программа решает три задачи:

1. Определяет, является ли введенная дробь правильной или неправильной. 2. Проверяет, делится ли первое число на второе. 3. Выводит меньшее из двух введенных чисел.

Надеюсь, это поможет! Если у вас есть дополнительные вопросы или нужна дополнительная помощь, не стесняйтесь спрашивать.