В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Шоце
Шоце
31.12.2020 18:42 •  Информатика

Решите данное задание


Решите данное задание

Показать ответ
Ответ:
elcapone777
elcapone777
24.04.2023 09:46

1)  Как вы считаете, влияет ли компьютер на здоровье человека?

2) Сколько времени вы проводите за компьютером в сутки(24 часа) ?

3)Какую работу чаще вы выполняете, пользуясь компьютером: печатаете, играете и т.д.

4) Через какой промежуток времени вы делаете между сеансами, работая за компьютером

5) Думаете ли вы, что длительные времяпровождение за компьютером негативно сказывается на зрении, позвоночнике, циркуляции крови во всём организме

6) Как вы полагаете, какое влияние оказывает электромагнитное излучение компьютера на здоровье человека

7) Что вы испытываете, работая долго за компьютером

8) Как вы предполагаете, каково влияние компьютерных игр на развитие личностных и моральных качеств

9) Считаете ли вы, длительное время провождение оказывает негативное влияние на психику человека

10) Ваши рекомендации по сохранению здоровья при длительной работе за компьютером

Объяснение:

0,0(0 оценок)
Ответ:
какулькаТВ
какулькаТВ
26.05.2020 22:39

const

a : array[1..10] of integer = (12, 5, 4, 1, 9, 7, 8, 2, 3, 2);

var k, _counterW, _counterS: integer;

begin

_counterS := 0;

_counterW := 0;

for k := 1 to 10 do

   begin

   if (a[k] = 12) or (a[k] = 1) or (a[k] = 2) then

       _counterW := _counterW + 1

   else if (a[k] = 6) or (a[k] = 7) or (a[k] = 8) then

       _counterS := _counterS + 1;

   end;

writeln('Количество родившихся летом:', _counterS);

writeln('Количество родившихся зимой:',_counterW);

if _counterW > _counterS then

   writeln('Зимой родилось большее количество учащихся!')

else if _counterS > _counterW then

   writeln('Летом родилось большее количество учащихся!')

else

   writeln('Летом и зимой родилось одинаковое число учащихся!');

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота