М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Краткое сообщение как компьютер влияет на здоровье человека

👇
Ответ:
ValeriaSalvatore
ValeriaSalvatore
30.06.2021

вредно ли сидеть за компьютером? Считаю, что пользы от компьютера при его разумном использовании намного больше, чем вреда. Тем не менее кто предупрежден, тот вооружен.Влияние компьютера на здоровье человека характеризуется:

постоянным сидячим положением,

большим зрительным напряжением,

однообразными повторяющимися нагрузками на руки,

а также нервно-эмоциональным напряжением, связанным с влиянием компьютера на психику человека.

мерцание монитора (влияет на глаза),

электромагнитное излучение,

шум (раздражает),

воздействие на психику

Чтобы глаза не болели нужно делать упражнения для глаз

1. Зажмурьте глаза на ~ 10 секунд

2. Быстро моргайте в течении ~5-10 сек.

3. Сделайте несколько круговых движений глазами.

4. Несколько раз поменяйте фокус, для этого смотрите сначала на какую либо точку на окне (если оно очень чистое, можно приклеить маленькую бумажку) а потом в даль (на облака, далёкий дом и т.д.)

   5. Для снятия раздражения, или для отдыха глаз возьмите заваренный чайный пакетик (уже холодный) положите на глаза и лежите ~ 10 минут

4,8(5 оценок)
Открыть все ответы
Ответ:
konovalova701
konovalova701
30.06.2021
1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.
4,6(85 оценок)
Ответ:
muratowaasya
muratowaasya
30.06.2021
1. Для цикла For

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  for i := 1 to N do
    p:=p*x;
  writeln(x,' в степени ',n,' равно ',p );
end.

2. Для цикла While
var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  while i<=n do begin
    p:=p*x;
    i:=i+1;
  end;
  writeln(x,' в степени ',n,' равно ',p );
end.

3. Для цикла Repeat

var
  x,n,p:longint;
  i:integer;
begin
  readln (x,n);
  p:=1;
  i:=1;
  repeat
    p:=p*x;
    i:=i+1;
  until i>n;
  writeln(x,' в степени ',n,' равно ',p );
end.
4,6(52 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ