6=2×3, поэтому если число кратно 6, то оно кратно и 3. Целые числа, начиная от 1 - это натуральные числа. Первое натуральное число, кратное 6, это 6. Следующее натуральное число, кратное 6, будет на 6 больше и т.д., т.е. образуется ряд 6,12,18, 24, ...
var i,n,s:integer; begin Write('n='); Read(n); s:=0; i:=6; repeat s:=s+i; i:=i+6; until i>n; Writeln('S=',s) end.
begin Write('Введите трехзначное число: '); Readln(n); if (n < 100) or (n > 999) then Writeln('У Вас странное представление о трехзначных числах!') else begin d := n div 100; {старшая} n := n mod 100; m := n div 10; {средняя} n := n mod 10; {младшая} if (m > d) and (n > m) then Writeln('Цифры следуют в возрастающей последовательности') else if (m < d) and (n < m) then Writeln('Цифры следуют в убывающей последовательности') else Writeln('Цифры не образуют монотонную последовательность') end end.
Тестовое решение:
Введите трехзначное число: 159 Цифры следуют в возрастающей последовательности
На этот вопрос нет однозначного ответа, обычно это зависит от того, какие это данные. Личные данные вроде паролей лучше архивировать сразу в отдельную резервную копию, как только они были изменены. Не слишком нужные, подлежащие восстановлению файлы, вроде выполненных домашних заданий и закачек браузера - примерно раз в неделю, если они могут ещё пригодиться. Файлы, которые легко, но долго восстанавливать (скачанные фильмы и прочие вещи, которые легко, но долго качать ещё раз), можно вообще не добавлять в резервную копию, но если интернет дорогой и не безлимитный, то лучше это делать примерно раз в один-три месяца.
Целые числа, начиная от 1 - это натуральные числа. Первое натуральное число, кратное 6, это 6. Следующее натуральное число, кратное 6, будет на 6 больше и т.д., т.е. образуется ряд 6,12,18, 24, ...
var
i,n,s:integer;
begin
Write('n='); Read(n);
s:=0; i:=6;
repeat
s:=s+i;
i:=i+6;
until i>n;
Writeln('S=',s)
end.
Пример
n=100
S=816