Ответ: утконос. Просто убирай все одинаковые буквы.
// PascalABC.NET 3.0, сборка 1150 от 22.01.2016
begin
var a,b:integer;
Read(a,b);
var k:=0;
for var i:=a to b do begin
var n:=i;
var s:=0;
while n<>0 do begin
s+=n mod 10;
n:=n div 10
end;
if i mod s = 0 then
begin Write(i,' '); Inc(k) end
end;
Writeln(#13#10,k)
end.
<u><em>Тестовое решение:</em></u>
10 20
10 12 18 20
4
На сколько я знаю, надо просто все перемножить
записывай в А1 А2 А3 и тд. комплектующие а после этого например если ты закончила записывать на А8 то под А8 тоесть в а9 пиши формулу А1 А2 и тд. между ними + и все.
Var
i, a, b, n, n2, j: longint;
s: string;
flag: boolean;
begin
Write('Введите через пробел границы диапазона: ');
Readln(a, b);
if b < a then begin n := a; a := b; b := n end;
if a < 11 then a := 11;
for i := a to b do
begin
Str(i, s);
n := Length(s); n2 := n div 2; flag := true; j := 1;
repeat
flag := (s[j] = s[n - j + 1]);
j := j + 1
until (not flag) or (j > n2);
if flag then Write(i, ' ')
end;
end.
Тестовое решение:
Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441