Задача ** повторение цикла While Найти и вывести все четырехзначные числа у которых...

Question

Задача на повторение цикла While Найти и вывести все четырехзначные числа у которых произведение первых двух цифр равно сумме двух последних. Например: 3699 (3*6=9+9), 6399(6*3=9+9) В программу ничего не вводится. Вывод, все числа соответствующие условию в порядке возрастания. (Pascal abc.net)

Answer 1

Ответ:

Дан во вложении.

---

Comments

Почему вы поменяли местами строку с for и строку с var? Где begin для программы?

---

Где to в for'е?

---

Оно не пишет где проблема

---

Исправьте, пожалуйста, написанное выше.

---

Исправил, но compilation error остался

---

Как теперь выглядит код?

---

var sum, pr:longint;
begin
for x:=1000 9999 do
begin
sum:=x mod 10 + x div 10 mod 10;
pr:= (x div 1000) * (x div 100 mod 10);
if sum =pr then writeln(x);
end;
end.

---

У вас x не объявлен нигде. Добавьте его в первую строку вместе с sum и pr или поставьте "for var x:=1000 to 9999 do"

---

И вы до сих пор не поставили слово "to"

---

Я вам бесконечно благодарен! Простите меня за тупость, долго не сплю.