1)Через сеть интернет либо съемные носители 2)Размножался в системе, выполнял нагрузку на цп до 100% 3)Удалил с помощью антивирусной программы 4)нужно ставить защиту на браузер и перед работы со съемным носителем проверять его на вирусы
5 итераций цикла for, на каждой значение переменной s увеличивается на 7: s = 7 + 7 + 7 + 7 + 7 = 35
C++
<span>#include<bits/stdc++.h>
using namespace std;
string s;
main()
{
cin>>s;
if(s[0]>96)
s[0]-=32;
cout<<s<span>;
}
PascalABC.NET
</span></span><span>var s:string;
begin
read(s);
s[1]:=UpperCase(s[1]);
writeln(s);
end<span>.
</span></span><span>
</span>
Var a,b,c,d,x,y: longint;
function NOD(a,b:integer):integer;
begin
while(a<>0) and (b<>0) do
if a>=b then a:= a mod b
else b:= b mod a;
NOD:=a+b;
end;
function NOK(a,b:integer):integer;
begin
NOK:=a*b div NOD(a,b)
end;
Begin
Read(a,b,c,d);
x:=NOK(a,b);
y:=NOK(c,d);
Writeln(NOK(x,y));
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
if (n div 100+(n div 10) mod 10+n mod 10).IsEven then Writeln(n/2)
else Writeln(2*n)
end.
<u>Пример</u>
n= 319
638