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

0 голосов
21 просмотров

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


Информатика (19 баллов) | 21 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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.

(38.6k баллов)