решить задачу игра «Osmos» , n планет и у каждой своя сила. если сила одного больше другой, то он поглощает её и увеличивает свою.
Вводные данные:
1
1
3
4

Вывод:
0
0
1
1

Первые две выиграть не могут
А 3 если съест 1 и 2
И победит 4

Отрицательные:Портит зрения сидя за компьютером (телефоном).Портит здоровье. У некоторых людей когда они там умирают "сдают" нервы, и их нервная система портится.

Мы в игре убиваем, это может также отражаться на человеке.

Положительные:Человек учиться думать наперед, что к чему. Там есть механизмы, он тоже этим развивает мозги, он хорошо начинает понимать информатику. Человек учит английский язык в этой игре. Так-как в игре можно его не выключать. Так же там можно и поставить другие языки и учить их. Там доступны миллионы серверов, на которых человек общается с другими людми, и возможно получает сто то новое.

1)var a,b,c,a1,b1,c1,s:integer;
begin
writeln('Введите количество часов в первом моменте времени');
readln(a);
writeln('Введите количество минут в первом моменте времени');
readln(b);
writeln('Введите количество секунд в первом моменте времени');
readln(c);
writeln('Введите количество часов во втором моменте времени');
readln(a1);
writeln('Введите количество минут во втором моменте времени');
readln(b1);
writeln('Введите количество секунд во втором моменте времени');
readln(c1);
s:=abs(a*3600+b*60+c-a1*3600-b1*60-c1);
writeln(s,' секунд');
end.
2)var a,b:integer;
s:real;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
if (a+b) mod 2 =0 then s:=a*b
else s:= a/b;
writeln(s);
end.
3)var b,s,n:real;
begin
writeln('Введите количество часов');
readln(n);
n:=n/3;
s:=2*power(2,(n-1));
writeln(s,' амёб');
end.
4)var a:array[1..7]of integer;
i:integer;
begin
for i:=1 to 7 do
begin
a[i]:=random(11);
writeln('a[',i,']= ',a[i]);
end;
end.