1.Отыскать количество чисел, кратных 3 и 5, в интервале от 1

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

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


Пиши, если что-то не работает или не понятно :)
Олеся Остромогольская
Хм, ну, хорошо... Спасибо.
Данил
Да.
Лилия
Ой, это правда... Поправил, спасибо )
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт