первая
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-сеть или тестируете вирусное программное обеспечение. Также в последнее время встречается сервис, предоставляющий услуги мощного компьютера для игр. Всё это тоже дедики, позволяющие запустить на Вашем максимально слабом компьютере безумно мощные игры, требующие соответственные характеристики Вашего железа.
