Question

Помогите пожалуйста,(Паскаль АВС):
Среди натуральных трехзначных чисел найти те, сумма цифр которых равна заданному числу А, а само число при делении на 4 дает остаток 3.

Answer 1

var a,b,i,s1,s2,s3:integer;
begin;
readln(a);
for i:=100 to 999 do
begin;
b:=i;
s1:=b mod 10;
b:=b div 10;
s2:=b mod 10;
b:=b div 10;
s3:=b mod 10;
b:=b div 10;
if (i mod 4=3) and (s1+s2+s3=a) then writeln(i);
end;
end.