Задача на повторение цикла While
Найти и вывести все четырехзначные числа у которых произведение первых двух цифр равно сумме двух последних.
Например: 3699 (3*6=9+9), 6399(6*3=9+9)
В программу ничего не вводится.
Вывод, все числа соответствующие условию в порядке возрастания. (Pascal abc.net)
Ответы
Ответ дал:
2
Ответ:
Дан во вложении.
Приложения:
Wani4kaa:
Почему вы поменяли местами строку с 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.
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"
Я вам бесконечно благодарен! Простите меня за тупость, долго не сплю.
Вас заинтересует
7 лет назад