Question

Решить в паскале с While!!!
Какой цифрой оканчивается сумма всех двузначных чисел, в записи которых имеется хотя бы одна цифра 3.

Answer 1

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.