Блок-схема - в прилагаемом файле. Программа на паскале:
var a,b:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if a<>b
then begin a:=a+b; b:=a; end
else begin a:=0; b:=0; end;
writeln('a = ',a,' b = ',b);
end.
Пример:
a = 2
b = 5
a = 7 b = 7
При 256 символьном алфавите, каждый символ кодируется одним Байтом.
40*9*512*2=368640Байт. Делим на 1024 =360 кБайт.
Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer;
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
max := a[1];
min_i := 1; {номер минимального}
max_i := 1;
for i := 2 to n do
begin
if min > a[i] then
begin
min := a[i];
min_i := i;
end;
if max < a[i] then
begin
max := a[i];
max_i := i;
end;
end;
tmp := a[max_i];
a[max_i] := a[min_i];
a[min_i] := tmp;
for i := 1 to n do
write(a[i], ' ');
end.
В D1 пиши: $A1+B$1+C$1 в низ по аналогии