Т<span>ехника безопасности в кабинете информатики </span>
Общие требования безопасности 1.К работе в кабинете информатики допускаются учащиеся, прошедшие инструктаж по охране труда и не имеющие противопоказаний по состоянию здоровья. 2.Учащиеся должны соблюдать правила поведения в кабинете информатики.
<span>3.При работе в кабинете информатики возможно воздействие на человека следующих опасных и вредных факторов: от монитора: ультрафиолетовое, инфракрасное, электромагнитное и рентгеновское излучения; статическое электричество, блики и мерцание экрана; поражение электрическим током при работе без заземления, со снятой задней крышкой системного блока. </span>
Без операционной системы и программного обеспечения, ну и без компьютера, конечно
#предположим, что последовательность задается так: сперва вводится число, которое обозначает размер последовательности, затем вводится соответствующее количество чисел
#также предположим, что числа нам нужны одновременно кратные 5 и четные
def f():
n = int(input('Введите размер последовательности: '))
numbers = [int(input()) for i in range(n)]
return len([num for num in numbers if num % 5 == num % 2 == 0])
Program one;
Var a:array[1..9999] of rial; i,m,n,k:integer;
Begin
K:=1;
Readln (n);
For i:=1 to n do begin
Readln(a[i]) ;end;
For i:=1 to n do begin
If (a[i]>0) then a[i]:=a[i]*0,4;
If (a[i]=0) then a[i]:=0,5; If (a[i]>0) then k:=k*a[i];
If (a[i])<0) then m:=m+a[i];
End;
Writeln (k,m);
End .
Const r1=20.0;
var R2,Pi:real;
begin
Pi:=4*arctan(1);
writeln('Введите радиус'); readln(R2);
writeln('Результат: ',Pi*(sqr(R2)-sqr(r1)))
end.