program Positiv;
var i:integer; x,sum:real;
begin
sum:=0;
for i:=1 to 10 do
begin
write('введите ',i,'-е число: ');
readln(x);
if x>0 then sum:=sum+x;
end;
writeln('Cумма положительных чисел равна ',sum);
end.
Те, в которых не используется абсолютная адресация по отношению как к номеру столбца, так и номеру строки.
Begin
write('A':4, 'B':6, 'F1':6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write('X':4, 'Y':6, 'Z':6, 'F2':6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;<span>end.</span>
5) 11001101₂+10000100₂=101010001₂;
6) 4251₈+6561₈=13032₈;
7) 9A3₁₆+A55₁₆=19F8;
8) 1011010₂-11111110₂=-1011010₂;
9) 1721₈-7402₈=-5461₈;
10) 43B₁₆-C08₁₆=-767₁₆.
F1-3, F2-4, F5-5, F4-1, F3-2?
закрыто окошком