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

Question

43

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

fairylander · Accepted Answer

71

fairylander

31 августа 2022

Program n1; Uses CRT; Var a,b,c,d,s,i: integer; begin For i: =1000 to 9999 do begina: =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); readlnend.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: