Точно должно работать для 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 (N<>0) do begin sum:=sum+N mod 10; N:=N div 10; end; writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol); writeln('Сумма цифр числа N равна', sum); end.
1)в виде логических нулей и единиц (битов), а также их групп (байтов)
2)могут отличаться типом файлов
3)составленный в определённом порядке перечень каких-нибудь однородных предметов
4)Чтоб создать папку, файл или ярлык, требуется, прежде всего, путем перемещение по папкам и дискам вашего компьютера перейти к папке, в которой вы будете создавать новый объект. После этого нужно вызвать вс меню, щелкнув правой кнопкой мыши на свободном месте в правой части окна проводника, где расположен список содержимого текущей папки. В появившемся меню следует выбрать команду Создать (New). Также можно выбрать команду меню программы Файл * Создать (File), В любом случае на экране появится вс меню с перечнем объектов, которые вы можете создать.
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 (N<>0) do
begin
sum:=sum+N mod 10;
N:=N div 10;
end;
writeln('Количество чисел, делящихся и на 3, и на 5, равно ',kol);
writeln('Сумма цифр числа N равна', sum);
end.
Пиши, если что-то не работает или не понятно :)
1)в виде логических нулей и единиц (битов), а также их групп (байтов)
2)могут отличаться типом файлов
3)составленный в определённом порядке перечень каких-нибудь однородных предметов
4)Чтоб создать папку, файл или ярлык, требуется, прежде всего, путем перемещение по папкам и дискам вашего компьютера перейти к папке, в которой вы будете создавать новый объект. После этого нужно вызвать вс меню, щелкнув правой кнопкой мыши на свободном месте в правой части окна проводника, где расположен список содержимого текущей папки. В появившемся меню следует выбрать команду Создать (New). Также можно выбрать команду меню программы Файл * Создать (File), В любом случае на экране появится вс меню с перечнем объектов, которые вы можете создать.
5-е не знаю