Составьте программу ,которая уменьшает первое число в пять раз ,если оно больше второго

Question

Составьте программу ,которая уменьшает первое число в пять раз ,если оно больше второго

Answer 1

Var a,b:real;
begin
writeln('Введите 2 числа');
read(a,b);
if a>b then 
   begin 
      writeln('Первое число больше второго'); 
      write('a=',a/5:0:2); 
   end
else  writeln('Первое число не больше второго');
end.

Comments

Круто по модулю брать. Если входные данные -10 и -5, то получается, что -10 больше чем -5.

---

Это не число БОЛЬШЕ, а МОДУЛЬ.

---

Просто без модуля будет правильный ответ.

---

А кто НАПИСАЛ этот МОДУЛЬ..

---

У вас, братцы ошибка. Число а НЕ РАЗДЕЛИЛОСЬ, а только написалось "маленьким". Надо а:=а/5; writeln(a);

---

Да, это тоже ошибка. В двух ответах нет ни одного правильного.

Answer 2

Var   A,B,C:integer;
begin
A=10;
B=9;
IF AЭто фрагмент РЕШЕНИЯ задачи.

Comments

Это решение также является неправильным. По условию задачи нужно, чтоб первое число уменьшалось, ЕСЛИ ОНО больше второго, а не наоборот, как написано в этом решении, а конкретно IF A < B. Правильным вариантом будет IF A > B