Решить в паскале с While!!! Какой цифрой оканчивается сумма всех двузначных чисел, в записи которых имеется хотя бы одна цифра 3.
Answers & Comments
liris22
Var number, sum : integer;begin sum := 0; number := 10; while (number < 100) do begin if (number div 10 = 3) or (number mod 10 = 3) then begin sum := sum + number; end; number := number + 1; end; writeln('Сумма всех двухзначных цифр с цифрой "три": '+sum); writeln('Последняя цифра суммы: '+(sum mod 10)); end.
Answers & Comments
end.