Program n1;
var: a,b,c,d, n, m, s: integer;
function NOD(n,m:integer):integer;
begin
while n<>m do if m>n then m:=m-n else n:=n-m;
nod:=m;
end;
begin
readln(a); //1й числитель//
readln(b); //1й знаменатель//
readln(c); //2й числитель//
readln(d); //2й знаменатель//
n:=a*d+c*b;
m:=b*d;
s:=nod(n,m);
n:=n div s;
m:= m div s;
writeln(n,'/',m);
end.
Если шаг не задан явно, значит он равен 1.
<em>1)</em> Program p1;
Uses crt;
Var A: array [1..9] of integer;
i: integer;
Begin clrscr;
for i:=1 to 9 do
begin
case i of
1,4,7: a[i]:= random (99-10+1)+10;
2,5,8: (random (999-100+1)+100) div i;
3,6,9: (random (99-10+1)+10) mod 10;
end;
write (a[i],' ');
end;
readln;
readkey;
end.<em>
</em>2)<em> </em>Program p2;
Uses crt;
Var A: array [1..15] of integer;
i: integer;
Begin clrscr;
Writeln ('Введите первые 2 элемента массива');
Read (a[1],a[2]);
for i:=3 to 15 do
begin
a[i]:=(a[i-1]-a[i-2])+i;
write (a[i],' ');
end;
readln;
readkey;
end.
Персональный комп. бывает-Настольным, Переносным, Наладонным.
10 в двоичной с.сч. равен 2 в десятичной с.сч.
Число 10 уже стоит в десятичной с.сч
Значит нужно всего лишь прибавить:
10+2=12