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

Ответы 1

  • // PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!№1begin  var (k,s):=(0,0);  Range(100,999,25).ForEach(t->begin k+=1; s+=t end);  Writeln('Количество ',k,', сумма ',s)end.РезультатКоличество 36, сумма 19350№2function ds(n:integer):integer;begin  Result:=0;  while n>0 do begin    Result+=n mod 10;    n:=n div 10    endend;begin  Writeln('Чисел: ',1000.To(9999).Where(t->ds(t)=34).Count)end.РезультатЧисел: 10
    • Автор:

      trinity42
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years