Начнем с плюсов. Бесспорным достоинством компьютера, как технического изобретения, является упрощение и усовершенствование работы во многих отраслях жизни. Главным образом – это рабочие процессы в науке, архитектуре, промышленности. Именно программы, разработанные с помощью компьютерных технологий, позволили сделать важные открытия в области медицины, химии, физики, создать чертежи и графические разработки промышленного оборудования, зданий и сооружений. Развитие нанотехнологий тесно связано с компьютерами. «Бумажная работа» многих специалистов различных сфер деятельности была упрощена за счет появления ПК. Теперь нет необходимости хранить информацию в бумажном виде, создавая склады архивов, ведь есть электронные носители информации, подключаемые к компьютеру.МИНУСЫ Проблемы со спинойДолгое сидение за компьютером происходит, обычно, в неправильной, неудобной позе. Даже если изначально вы держите осанку, то уже через час, а то и раньше, начинаете сутулиться, выдвигая шею вперед или закидывая голову на спинку стула. При этом происходит искривление позвонков и передавливание сосудов. От этого чувствуется слабость, головокружение и даже боли в спине.Влияние на зрениеНапряжение глаз, обращенных в экран монитора, дает о себе знать постепенным ухудшением зрения. Поэтому не ленитесь делать специальные упражнения для глаз, и не сидите за компьютером слишком долго.ИзлучениеХотя всё еще ходят споры о вреде излучения от компьютеров, влияние электромагнитных волн от работающей техники можно ощутить уже после нескольких часов беспрерывной работы - чувствуется общая слабость и нервное напряжение.<span>Потеря времени</span>
Укажу часть решения (на все, увы, нет времени, работать надо - и как бы вы меня не уговаривали, все же сделаю это на паскале, но если нужно будет - исправлю под плюсы):
1) Чтобы проверить, является ли треугольник равносторонним, нужно узнать, равны ли все его стороны:
if (a = b) and (b = c) then
writeln('TRUE')
else
writeln('FALSE');
2) У равнобедренного треугольника должны быть равны две стороны:
if (a =b) or (b = c) or (a = c) then
writeln('TRUE')
else
writeln('FALSE');
3) Для существования треугольника сумма любых его двух сторон должна быть больше третьей:
if (a + b > c) and (a + c > b) and (b + c > a) then
writeln('TRUE')
else
writeln('FALSE');
4) Тут всё просто, первая четверть это неотрицательные значения для осей абсцисс и ординат:
if (a >= 0) and (b >= 0) then
writeln('TRUE')
else
writeln('FALSE');
С последним разберешься сам, там тоже несложно. В единую программу, надеюсь, сможет восьмиклассник собрать части кода?
Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end.
var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200) then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write(' min = ' ,min:4);end;end.
На c++
#include<iostream>
int main() {
int res = 1;
int n;
std::cin>>n;
for (int i=1;i<=n;++i) {
res*=i;
}
std::cout<<res;
}
Говорит декан факультета информатики Сание<span> Мамбетовна. Ты отчислена! Завтра же зайди в деканат!</span>
