Представьте десятичные числа в беззнаковом 8- разрядном формате : 56, 109, 96
​

s : = 1 ;

for i : = 1 to n do

  if a[i] mod 3 = 0 then

          s : = s * a[i];

writeln(s);

одна из возможных форм курсора : прямая

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.

если первая дробь равна a/b, а вторая - c/d, то их сумма равна е = a/b + c/d = (a*d + c*b)/b*d (без последующего сокращения дроби е).

алгоритм:

1. ввести числа a,b,c,d.

2. рассчитать число е = (a*d + c*b)/b*d.

3. распечатать число е.