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

Question

Напиши программу, которая при вводе трёхзначного натурального числа определяет сумму цифр, если число кратно 6 и оканчивается на 4, в противном случае выводит произведение цифр числа.
В чём может быть ошибка у меня ?

---

Comments

Точки с запятой после then и первого WriteLn уберите

---

во-первых перед else ";" не ставится, во-вторых в условном операторе должно быт выражение, значение которого true или false.

Answer 1

Program hhh54;
var x: longint;
begin
  read (x);
  if (x mod 6=0) and ( x mod 10=4) then write ((x div 100)+((x div 10) mod 10)+(x mod 10))
  else write ((x div 100)*((x div 10) mod 10)*(x mod 10));
end.

Comments

Можно спросить,вот в какой строке именно отражается условие "если число кратно 6 и оканчивается на 4"? В строке,где условный оператор ?

---

Сразу после "if" (x mod 6=0) and ( x mod 10=4)

---

Угу,яснненько,вы конечно же заслуживаете лучшее решение)

---

А стоп,это не вы

---

Ну и ладно

---

Вам тоже спасибо