первая
var
a : longint := 2;
begin
write('первые 16 степеней числа ', 2,' : ');
for var i := 1 to 16 do begin
a *= 2;
write(a, ' ');
end;
end.
втрая
var
a, p, o, n : integer;
begin
write('введите 10 чисел : ');
for var i := 1 to 10 do begin
read(a);
if a < 0 then o += 1 else if a > 0 then p += 1 else n += 1;
end;
writeln('положительных = ', p);
writeln('отрицательных = ', o);
writeln('нулю = ', n);
end.
третья
var
n, s : integer;
begin
write('введите n=');
readln(n);
for var i := 1 to n do s += i;
writeln('сумма чисел s=', s);
end.
Дедик - это такой же компьютер, как и Ваш, но без мониторов, клавиатур и мышек. Дедики редко встречаются в одном физическом экземпляре, то есть дедик - это часть сервера. Сервер рассчитан на определённое количество таких компьютеров. Вы можете производить над дедиком те же действия, что и со своим компьютером (но не физические). В зависимости от расположения сервера Вы будете ощущать отставание процессов дедика. Так, например, если сервер с дедиком расположен в США, то, находясь в СНГ, Ваши действия, производимые над дедиком, произойдут лишь через некоторое время. Как известно, связано это с пингом, скоростью интернета как Вашего, так и сервера.
Используется абсолютно для разных вещей, но чаще всего - для работы, которая требует бесперебойного потребления памяти компьютера. К примеру, Вы компилируете ядро операционной системы или производите какие-то незаконные операции, скрываете свой IP-адрес через собственную VPN-сеть или тестируете вирусное программное обеспечение. Также в последнее время встречается сервис, предоставляющий услуги мощного компьютера для игр. Всё это тоже дедики, позволяющие запустить на Вашем максимально слабом компьютере безумно мощные игры, требующие соответственные характеристики Вашего железа.
если неравно, то фальшивая более легкая
если равно, то фальшивая оставшаяся монета