<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var s:=0;
while n>0 do (s,n):=(s+n mod 10,n div 10);
if s=10 then Writeln('Верно, что сумма цифр числа равна 10')
else Writeln('Неверно, что сумма цифр числа равна 10')
end
end.
<u>Пример</u>
Введите натуральное число: 50311
Верно, что сумма цифр числа равна 10
<u>№2</u>
begin
var n:=ReadInteger('Введите натуральное число:');
if n<1 then Writeln('Число не является натуральным')
else begin
var a:=new integer[10];
var good:=False;
while n>0 do begin
var i:=n mod 10;
a[i]+=1; n:=n div 10;
if a[i]>1 then Good:=True
end;
if Good then begin
Write('Цифры, встречающиеся больее одного раза: ');
for var i:=0 to 9 do
if a[i]>1 then Print(i);
Writeln
end
end
end.
<u>Пример</u>
Введите натуральное число: 15365123
Цифры, встречающиеся больее одного раза: 1 3 5
Var n,d,a1,a0,i:integer;
begin
writeln('d=');
read(d);
writeln('n=');
read(n);
writeln('a1=');
read(a1);
a0:=a1;
for i:=2 to n do
a0:=a0+d;
writeln('Сумма равна');
writeln(a0);
<span>end.
.</span>
1)использовать Чертежник
алг
нач
опустить перо
нц 5 раз
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
сместиться на вектор(1,1)
сместиться на вектор(1,-1)
сместиться на вектор(-1,-1)
сместиться на вектор(-1,1)
поднять перо
сместиться на вектор (2,-1)
опустить перо
кц
<span>кон
2)</span>использовать Чертежник
алг
нач
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
нц 3 раз
сместиться на вектор(2,2)
сместиться на вектор(2,-2)
сместиться на вектор(-2,-2)
сместиться на вектор(-2,2)
поднять перо
сместиться на вектор(4,-1)
опустить перо
сместиться на вектор(0,2)
сместиться на вектор(2,0)
сместиться на вектор(0,-2)
сместиться на вектор(-2,0)
поднять перо
сместиться на вектор(2,1)
опустить перо
кц
<span>кон</span>
2009₁₀ = 7·16² + 13·16¹ + 9·16° = 7D9₁₆
7D9₁₆ = 7·16² + 13·16¹ + 9·16° = (2² + 2¹ + 2°)·2⁸ + (2³ + 2² + 2°)·2⁴ + (2³ + 2°)·2° = 2¹° + 2⁹ + 2⁸ + 2⁷ + 2⁶ + 2⁴ + 2³ + 2° = 11111011001₂
11111011001₂ = 2¹° + 2⁹ + 2⁸ + 2⁷ + 2⁶ + 2⁴ + 2³ + 2° = 2·8³ + 8³ + 4·8² + 2·8² + 8² + 2·8¹ + 8¹ + 8⁰ = 3·8³ + 7·8² + 3·8¹ + 8⁰ = 3731₈
3731₈ = 3·8³ + 7·8² + 3·8¹ + 8⁰ = 1536 + 448 + 24 + 1 = 2009₁₀
1011101₂ + 1101110₂ = 11001011₂
Антивирусный монитор- часть антивируса который информирует user-пользователя о вирусе,обнаруженной угрозе.Производит автоматическ. действия, которые чистит наш ПК от возникшей угрозы со стороны вируса.
При по попытки заражения, антивирусный монитор блокирует все файлы,программы и т.д от возникш.угрозы.
Антвирусный сканер- проводит полную проверку всего содержимого ПК( локальных,сетев.) :С :D дисков по желанию пользователя.