В мире новых технологий
Информатика предмет
Жизненно необходимый.
В нем для нас секретов нет.
var
x:integer;
begin
readln(x);
if(x mod 2 = 0) then writeln('Четное')
else writeln('Нечетное');
end.
Ответ:
Вирус - класс компьютерных программ, способных самостоятельно распространятся путём внедрения своего кода с исходный код файла. Наиболее подвержены заражению .exe файлы, иногда встречаются вирусные BAT - файлы
Объяснение:
Бит , байт, Мбайт, Кбайт, Гбайт, Тбайт
Program maximal;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,max:integer;
begin
readln(N);
max:=0;
for i:=1 to N do
begin
read(a[i]);
if max<a[i] then
max:=a[i];
end;
write(max);
end.
////////
2) Program B;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,z:integer;
begin
readln(N);
z:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i]>0 then
write(a[i],' ');
if a[i]=0 then
z:=z+1;
end;
writeln();
for i:=1 to N do
begin
if a[i]<0 then
write(a[i],' ');
end;
writeln();
for i:=1 to z do
write('0',' ')
end.