Помогите пожалуйста, срочно надо.Заранее большое спасибо)1) Определите и выведите **...

Question

Помогите пожалуйста, срочно надо.
Заранее большое спасибо)
1) Определите и выведите на экран количество четырехзначных чисел, которые делятся без остатка одновременно на 5 и 11.
2) Найдите и выведите на экран все двузначные числа, у которых при умножения на 2 сумма цифр увеличивается на 5.

Comments

Неправильно,так как подходят только 14,23,32,41,а дальше не подходят.Проверка:Число 50.50*2=100,сумма цифр числа 100=1,а сумма цифр числа 50 =5.1 меньше 5 на 4,а должно быть больше на 5

---

Спасибо ВАМ)

---

Пожалуйста,я тоже сначала так сделал,только результат проверил и нашёл ошибку)

Answer 1

1)var a,b:integer;
begin
b:=0;
for a:=1000 to 9999 do
begin
if (a mod 5=0) and(a mod 11=0)then b:=b+1;
end;
writeln(b);
end.
2)var a,b:integer;
begin
for a:=10 to 99 do
begin
if 2*a<100 then<br>begin
if (a mod 10 + a div 10+5)=(2*a mod 10 +2*a div 10) then writeln(a);
end;
if 2*a>100 then
begin
b:= 2*a div 10;
if (a mod 10 + a div 10+5)=(2*a mod 10+ b mod 10+ b div 10)then writeln(a);
end;
end;
end.

Comments

Спасибо большое)

---

Пожалуйста