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

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

Точно должно работать для 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.Пиши, если что-то не работает или не понятно :)