1)вредность компьютера влияет на ухутшение памяти,зрения и т.д
2)если человек много будет сидеть за компьтером особенно если много играть в него то человек может представлять что весь мир это игра. Начнёт убивать людей и например подумает что они смогут возрадиться но это не так
Turbo Pascal
USES CRT;
VAR A:array[1..10] of integer;
B:array[1..5] of integer;
C:array[1..5] of integer;
i,bx,cx:integer;
BEGIN
CLRSCR;
Randomize;
For i:=1 to 10 do
begin
A[i]:=1+random(50);
Write(A[i],' ');
end;
Writeln;
bx:=1; cx:=1;
for i:=1 to 10 do
if (i mod 2 = 0) then
begin
B[bx]:=A[i];
bx:=bx+1;
end
else
begin
C[cx]:=A[i];
cx:=cx+1;
end;
For i:=1 to 5 do
Write(B[i],' ');
Writeln;
For i:=1 to 5 do
Write(C[i],' ');
READLN;
END.<span>
</span>
Так вы уже практически написали программу. Осталось только чуть-чуть приукрасить код:
var
x: integer;
begin
readln(x);
if x mod 2 =0 then writeln(x,' четное') else writeln(x,' нечетное');
end.
Программа на Паскале
Program BiFi;
Var x:real;
Begin
readln(x);
if x>3 then writeln(x*x+5);
else writeln(x-8);
readln;
end.