• 1.Найти количество чисел, кратных 3 и 5, в промежутке от 1 до N. N вводится с клавиатуры. 2.Найти сумму цифр в числе.
    Паскаль

Ответы 2

  • Но в следующий раз ответ с подобной болтовней просто удалю.
    • Автор:

      curry4ulk
    • 5 лет назад
    • 0
  • Точно должно работать для PascalABC.Net (версия 3.2, сборка 1341).program Task;var N,i,kol,sum:integer; //По-хорошему, не integer. Потому что мы работаем с натуральными числами, а не отрицательнымиbeginread(N);for i:=1 to N do beginif (i mod 15)=0 then kol:=kol+1; //15 - это НОК(3,5)end;while (N<>0) dobeginsum:=sum+N mod 10;N:=N div 10;end;writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol);writeln('Сумма цифр числа N равна', sum);end.Пиши, если что-то не работает или не понятно :)
  • Добавить свой ответ

Войти через Google

или

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

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

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