Всемирный день безопасного Интернета (англ. Safer Internet Day) — праздник, отмечаемый во второй вторник февраля.
Идея празднования принадлежит Еврокомиссии, которая была поддержана европейскими некоммерческими организациями European SchoolNet и Insafe
Главный координатор Дня — некоммерческая организация Insafe (European Safer Internet Network)
Еще прикреплен с паскалевским файлом
var n:integer;
begin
writeln('vvedi chislo');
readln(n);
if n mod 2=0 then writeln ('chetnoe') else writeln ('ne chetnoe');
readln;
<span>end.</span>
Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>
Антивирус, не посещать не знакомые сайты
Var aa: array[1..10] of integer;
i,n,n1: integer;
begin
n:= 0;
n1:= 0;
for i:= 1 to 10 do begin
readln(aa[i]);
if (aa[i] mod 2 = 0) then n:= n+1 else n1:= n1+1;
end;
writeln('Четных - ',n,'. Нечетных - ',n1);
end.