найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5

Question

Информатика

Васильюшка

28 марта, 21:59

найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5

+4

Ответы (1)

Знаете ответ на вопрос?

Кузьмич · Answer 1

Program n1;

Uses CRT;

Var a, b, c, d, s, i: integer;

begin

For i:=1000 to 9999 do

begin

a:=i div 1000;

b:=i mod 1000 div 100;

c:=i mod 100 div 10;

d:=i mod 10;

If (a=5) or (b=5) or (c=5) or (d=5) then s:=s+i;

end;

writeln ('summa ravna ', s) ;

readln

end.