GAECHKA
Твоя помощница в решении задач

можно как то доработать программу?

ЗАДАНИЕ (Вывести все натуральные числа из диапазона [11; 100], сумма цифр которых четна. )
Или вообще не верно сделано ?


var
  a,b,i,j,k,s: integer;
begin
repeat
 readln(a,b);
until (a>0)and(b>=a);
k:=0;
for i:=a to b do
 begin
  j:=i;
  s:=0;
  while j>0 do
   begin
    s:=s+j mod 10;
    j:=j div 10;
   end;
  if s mod 2=0 then inc(k);
 end;
writeln(k);
end.
0
вопрос задан

Источник


1 ответ
Решение
var
a,b,i,j,k,s: integer;
begin
repeat
readln(a,b);
until (a>0)and(b>=a);
k:=0;
for i:=a to b do
begin
j:=i;
s:=0;
while j>0 do
begin
s:=s+j mod 10;
j:=j div 10;
end;
if s mod 2=0 then writeln(i);
end;
end.
Добавлено через 2 минуты
или так:
begin
  range(ReadlnInteger('a='),ReadlnInteger('b=')).Where(i->inttostr(i).ToCharArray.Sum(j->strtoint(j)) mod 2=0).Println;
end.