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
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.
1) Как вы считаете, влияет ли компьютер на здоровье человека?
2) Сколько времени вы проводите за компьютером в сутки(24 часа) ?
3)Какую работу чаще вы выполняете, пользуясь компьютером: печатаете, играете и т.д.
4) Через какой промежуток времени вы делаете между сеансами, работая за компьютером
5) Думаете ли вы, что длительные времяпровождение за компьютером негативно сказывается на зрении, позвоночнике, циркуляции крови во всём организме
6) Как вы полагаете, какое влияние оказывает электромагнитное излучение компьютера на здоровье человека
7) Что вы испытываете, работая долго за компьютером
8) Как вы предполагаете, каково влияние компьютерных игр на развитие личностных и моральных качеств
9) Считаете ли вы, длительное время провождение оказывает негативное влияние на психику человека
10) Ваши рекомендации по сохранению здоровья при длительной работе за компьютером
Объяснение:
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.
1) Как вы считаете, влияет ли компьютер на здоровье человека?
2) Сколько времени вы проводите за компьютером в сутки(24 часа) ?
3)Какую работу чаще вы выполняете, пользуясь компьютером: печатаете, играете и т.д.
4) Через какой промежуток времени вы делаете между сеансами, работая за компьютером
5) Думаете ли вы, что длительные времяпровождение за компьютером негативно сказывается на зрении, позвоночнике, циркуляции крови во всём организме
6) Как вы полагаете, какое влияние оказывает электромагнитное излучение компьютера на здоровье человека
7) Что вы испытываете, работая долго за компьютером
8) Как вы предполагаете, каково влияние компьютерных игр на развитие личностных и моральных качеств
9) Считаете ли вы, длительное время провождение оказывает негативное влияние на психику человека
10) Ваши рекомендации по сохранению здоровья при длительной работе за компьютером
Объяснение: