Решите задачи в Паскале. 1. Найти и вывести ** экран количество и сумму всех натуральных...

Question

Решите задачи в Паскале.
1. Найти и вывести на экран количество и сумму
всех натуральных трехзначных чисел, кратных
25.
2. Найти и вывести на экран количество
четырехзначных чисел, сумма цифр которых
равна 34.

Answer 1

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

№1

begin
  var (k,s):=(0,0);
  Range(100,999,25).ForEach(t->begin k+=1; s+=t end);
  Writeln('Количество ',k,', сумма ',s)
end.

Результат
Количество 36, сумма 19350

№2

function ds(n:integer):integer;
begin
  Result:=0;
  while n>0 do begin
    Result+=n mod 10;
    n:=n div 10
    end
end;

begin
  Writeln('Чисел: ',1000.To(9999).Where(t->ds(t)=34).Count)
end.

Результат
Чисел: 10