Решить алгоритм. Задумайте два целых числа, вычислите произведение чисел. Сравните «...

Question

Решить алгоритм. Задумайте два целых числа, вычислите произведение чисел. Сравните « найденное произведение равно 100» Если ДА-сообщить равно и сделать команду 5, если НЕТ-сделать команду 5. Закончить выполнение алгоритма

Comments

Тут при Да и Нет будет 5 ))

---

Спасибо большое, а как вы это решали? Я совсем не понимаю(((

---

если можно ,пришлите решение с формулами , либо нарисованный алгоритм, буду очень вам благодарна

---

Если ДА-сообщить равно и сделать команду 5, если НЕТ-сделать команду 5. Закончить выполнение алгоритма

---

Я не понимаю... тут вообще без разницы какое будет значение, всё равно программа выведет тебе 5.

---

Спасибо огромное

Answer 1

Program p1;
uses crt;
var a,b,p:integer;
begin
read(a,b);
p:=a*b;
If P= 100 then
write('Да, равно 5')
else write('Нет, неравно 5');
end.