Суть программы - вводите число, оно выводит это число, если оно делится на 5 и 7, иначе ничего не выводит.
Операционная система является скорее главной программой на компьютере, без нее можно включить компьютер (не операционную систему, а только компьютер), при этом видеокарта, оперативная память, жесткий диск и др. компоненты будут работать.
Var g, i, j, m, n: integer;
begin
m := 100;
read(g);
for j := 1 to 8 do begin
if(g >= n) and (g <= m) then i := j;
if (j = 1) then n := n + 1;
n := n + 100;
m := m + 100;
end;
write(i);
end.
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.