Техника безопасности в кабинете информатики Общие требования безопасности 1.К работе в кабинете информатики допускаются учащиеся инструктаж по охране труда и не имеющие противопоказаний по состоянию здоровья. 2.Учащиеся должны соблюдать правила поведения в кабинете информатики. 3.При работе в кабинете информатики возможно воздействие на человека следующих опасных и вредных факторов: от монитора: ультрафиолетовое, инфракрасное, электромагнитное и рентгеновское излучения; статическое электричество, блики и мерцание экрана; поражение электрическим током при работе без заземления, со снятой задней крышкой системного блока.
Из условий я не понял про нанизывание на нитку окружностей. Остальное сделал на языке Паскаль. На своём компьютере не проверял, т.к. данный язык у меня не установлен. На фото я укзал рисунок моего понимания условий задачи. - - - - - - - - - - - - -- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - var a,b : integer; {описываем длины сторон} r,p : real; {описываем радиус и периметр} begin write ('Введите длину первой стороны прямоугольника: '); readln(a); write ('Введите длину второй стороны прямоугольника: '); readln(b); r:=(sqrt(a*a+b*b))/2; {находим радиус} r:=trunc(r*10000)/10000; {округляем до четырёх знаков после запятой} p:=(a+b)*2; {находим периметр прямоугольника}; writeln('Радиус окружности равен: ',r); writeln('Периметр прямоугольника равен: ',p); end.
program k;
var m:array [1..30] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 30 do
begin
m[i]:=random(10);
write(m[i],' ');
if m[i]>m[1] then k:=k+1
end;
writeln;
write(k)
end.